









Pour tous les passionnés de l'ordinateur personnel, 
les branchés et ceux qui le sont mains, Apple lance le Club Apple. 
Enfin un club avec des idées et des services 
pour comprendre, pour gagner, pour s'évader. 
| Le Club Apple, c'est l'esprit Apple. | 
C'est le fruit de la passion! 











Pour en savoir plus sur le Club ApBle - le fruit de la passion - et connaître tous les avantages que nous réservons aux 
membres du club, découpez dès aujourd'hui le bon et retournez-le à Club Apple, avenue de l'Océanie - ZA de Courtabæuf - BP 131, 
Les Ulis cedex 91944. Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club. 
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QUESTIONS 
D'AUJOURD'AUI ? 


REPONSES 
AU SICOB, 


SICOB 64 


CMT-PARIS LA DEFENSE 


DU 22 AU 28 SEPTEMBRE 
{SAUF DIMANCHE 23) DE 9H A 18H 
JOURNEES PROFESSIONNELLES: 19 20 21SEPT 





Editorial 


Trois ans déjà ! Trois années pendant lesquelles Pom's à augmenté sa pagination (ce numéro comporte 
80 pages). sa fréquence de parution. son tirage, et même son prix de vente. quoique moins de 15 % 
d'augmentation en trois ans. cela soit un record en matière d'inflation ! Surtout avec le papier qui à 


pratiquement triplé et les frais postaux qui n'ont pas respecté les consignes du gouvernement en matière 
de contrôle des prix. 


Trois articies de ce numéro valent chacun le prix d'un abonnement annuel : tout d'abord le catalogue 
général de Michel Baudrand, et le programme lcare de Pascal Cantot qui regroupe (tel Haifa} un 
paquet de routines toutes plus intéressantes les unes que les autres. sous le contrôle du célèbre &. Puis. 
inspiré par l'article de Michel Haag paru dans le numéro 12. la transformation par Jacques Rey de 
votre carte 80 colonnes ‘étendue ” en un disque virtuel de 64K. 


Marcel Cottini stocke 217 fichiers sur une disquette. il vous propose également un essai de Koala 
Pad. Dans le domaine des essais. vous trouverez également le logiciel Jane présenté par Jean-Michel 
Gourévitch, et Appleworks. logiciel intégré vu par Guy Lapautre. Pour ma part. j'ai pu tester Visicalc 
Advanced Version. le dernier développement de Visicalc. 


Deux articles originaux d'Alexandre Avrane : d'une part une routine de conversion de l'affichage 
minuscule en majuscule pour que vos programmes conçus sur /’e et //c soient utilisables sur Apple 1! 
sans ROM LC, et d'autre part. une contribution originale en Visicalc qui vous donnera les heures de 
lever et coucher du soleil. 


Jacques Tran-Van et Maurice Schapiro ont modifié le programme de gestion de masque écrit par 
Gérard Michel. Ce dernier poursuit par ailleurs sa série d'initiation à l'assembleur pour laquelle nous 
recevons toujours un courrier enthousiaste. 


Philippe Le Dru ajoute à l'Applesoft une routine de gestion de procédure avec des variables locales 
tout à fait ‘‘pascaliennes'": Quant à Jacques Duma, il vous délivre des problèmes de virgules et deux- 
points dans les INPUTSs en deux lignes d'Applesoft, En deux lignes également vous pourrez sauvegarder 
et recharger des tableaux de variables sur disquettes 


La rubrique Macintosh grandit et va devenir. probablement à partir du numéro de novembre. un cahier 
complet. Je vous v présente une analyse de deux livres et deux logiciels de jeu. Jean-Luc Bazanegue 
a recherché pour vous les tokens du Basic Microsoft du Macintosh. et Pom's vous donne le moven 
d'envover à votre brave Apple // des textes écrits avec MacWiite. Vous êtes en effet de plus en plus 
nombreux à disposer d'un Mac. et Pom's tient à apporter son soutien aussi aux utilisateurs à ce nou- 
veau bourreau des cœurs 


Nous avons encore de nombreux programmes passionnants en réserve et prions les auteurs qui nous 
envoient leurs contributions de bien vouloir prendre patience. Dans le prochain numéro {novembrel. 
entre autres beautés. vous aurez “Mobby Disk‘. un programme qui permet d'analyser ou de modifier 
un disque à volonté. 


Enfin. Pom s continue à rechercher un collaborateur connaissant parfaitement bien l'assembleur et le 
Basic Applesoft, sachant s exprimer clairement et sans fautes d'ortographe. pour un travail de rédaction 
pouvant aller du mi-temps au temps complet 


Hervé Thiriez 


Erratum : sur la couverture, il s'agissait de Bill Budge et non Bodge. Devons-nous y voir l'influence 
néfaste de la traduction de bug en Bogue ? 


Ont collaboré à ce numéro : Alexandre Avrène — Michel Baudrand - Pascal Cantot - Marcel Cottini - Alexandre Duback — 
Jacques Duma - Jean-Michel Gourévitch - Guy Lapautre - Philippe Le Dru - Gérard Michel - Jacques Rey - Maunce Schapiro — 
Hervé Thiriez - Jacques Fran Van Rédacteurs : Alexandre Avrane - Gérard Michel Directeur de ta publication, rédacteur 
en chef : Hervé Thiriez. Dessin : Laurent Bidol 

Siège social et abonnements : Editiens MEV - 84 70, rue des Chantiers 78000 Versailles Tél (3) 951 24 43 

Rédaction et courrier des lecteurs : 59. bd de Glatignuw  74[XX) Versailles 

Régie publicitaire : Ferce 7 Anne Jeurdan 5. place du Colonel Fabien 75010 Pans Tél 240 22 01 

Diffusion N.M.P,P. : Sophie Marnez Tél (11 240 2201 

Composition : Télécempo 1:3 15. avenue du Petit Parc 4300 Vincennes Tél 328 18 63 

Impression : Rosay - 47, avenue de Pans 94300 Vincennes Tél 328 18 63 
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1980: il était déjà là avant même l'explosion de fa micro- 
informatique , prêt à évoluer avec elle d'année en année. 


1984/1985 :ilest“la”Bible.Sontitre,sesfidètesleluiont donné, 
naturellement : "LE" GUIDE. 

Instrument de première approche des néophytes. 

Référence des passionnés, des vrais amateurs, des profes- 
sionnels, des constructeurs, des vendeurs. 


1984/1985 : LE GUIDE MICRO présente : 

- les 216 fiches techniques détaillées des micro-ordinateurs 
du marché (de 500 FF à 50 000 FF), 

- le tableau exclusif de plus de 130 imprimantes, 

- un panorama des 60 logiciels à connaître dans toutes 
les applications, 

- près de 2000 adresses de constructeurs, de clubs et 
de boutiques, par ordre alphabétique et par département, 

- les mots clefs de l'informatique. 










1°" septembre 1984: 
LE GUIDE MICRO est vendu 35 FF 
chez votre marchand de journaux. 


1984/1985 : élaboré par une équipe de journalistes, LE GUIDE 
MICRO explique : qu'est-ce qu'un ordinateur ? Que permet-il ? 
LE GUIDE MICRO prend parti et dit pourquoi: pour ou contre 
55 ordinateurs individuels. || commente les grandes manœu- 
vres de l'année 84. Il tutoie l'avenir :les ordinateurs de janvier 
85 sont au rendez-vous. 


LE GUIDE DE 


TLORDINATEUR 
INDIVIDUEL 








L'article précédent nous a donné 
l'occasion de rentrer un peu dans le 
détail du contenu des octets manipu- 
lés par votre Apple et de voir 
comment certaines instructions de 
l'assembleur travaillent au niveau des 
bits d’infonnation. 

En analysant les traitements présen- 
tés au sujet des ‘instructions ADC ou 
SBC, vous avez pu constater qu'il 
n'y a finalement tien de bien mysté- 
tieux dans l'évolution de ces suites 
de 1 et de O qui constituent les 
octets. L'application rigoureuse de 
règles arithmétiques simples permet 
en effet de prévoir le résultat des 
opérations binaires et, par voie de 
conséquence, de comprendre le 
fonctionnement et les conditions 
d'emploi des instructions du langage 
assembleur réalisant ces opérations. 


Nous pouvons donc maintenant 
aborder d’autres instructions plus 
fines” quant à leur champ d'appli- 
cation. Si, comme toujours, elles ma- 
nipulent la quantité économique d'in- 
formation qu'est l'octet, les con- 
séquences de cette manipulation ne 
peuvent être totalement comprises 
qu'à l’aide d'un examen bit à bit. 
Des règles simples conduisent là en- 
core à la prédiction du résultat, et 
c'est bien normal lorsque les objets 
du traitement sont aussi pauvres” et 
peu nombreux que 0 et 1. 


Les opérateurs logiques 


Nous retrouvons là des instructions 
présentes également dans l’Applesoft. 
Lorsque vous écrivez "IF A=2 AND 
B=3" vous savez que la condition ne 
sera satisfaite que si l'on a à la fois 
"A=2" et ‘B=3". De même, si la 
condition devient ‘IF A=2 OR 
B=3”, vous savez qu'il suffira que 
"A=2" ou que ‘B=3” pour qu'elle 
soit satisfaite, même si l'on n'a pas 
“B=3" lorsque ”’A=2", ou "’A=2" 
lorsque ”B=3”. 

Si l’on considère que ‘'vurai” est codé 
par 1” et que faux” est codé par 
0”, "A=2 AND B=3" ne sera vrai 
que si ’A=2" donne 1 et si "B=3” 
donne 1 En revanche, pour que 
"A=2 OR B=3" soit vrai, il suffit 
que l'un des deux éléments ”’A=2” 
ou “B=3” donne 1 Des principes 
identiques sont utilisés pour les opé- 
rateurs logiques en assembleur, avec 
toutefois une distinction supplémen- 
taire pour le OR”. 


Le ET logique 


Le code mnémonique de l'instruction 
est AND. Elle réalise un "ET logi- 
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que” entre l'accumulateur et ce qui 
suit le code AND, c'est-à-dire un 
nombre ou le contenu d'une case- 
mémoire désignée par l'un des 
modes d’adressage déjà étudiés. Le 
résultat est remis dans l’accumula- 
teur. 


Le ET s'effectue bit à bit, selon la 
table de vérité suivante : 


0 ANDO = 0 
OAND1=0 
1 ANDO=0 
1AND1=1 


Si le bit 3 de l’accumulateur est à 1 
au moment du AND et que le bit 3 
de l'élément “comparé” est à O, on 
retrouvera le bit 3 de l'accumulateur 
à O0 à l'issue du AND. 

Supposons ainsi que l’accumulateur 
contienne 01001101” (soit #$4D) 
et l'adresse $18 11011000” (soit 
#$D8}). Après un AND avec le 
contenu de l'adresse $18, on trou- 
vera dans l’accumulateur la valeur 
01001000” (soit #$48) : sur le bit O 
(le plus à droite) on à 1 et O qui 
donnent O, sur le bit 1 on a OUet O0 
qui donnent O, sur le bit 2 on a 1 et 
O qui donnent O, sur le bit 3ona 1 
et 1 qui donnent 1... et ainsi de 
suite. 


Cette instruction AND permet en 
particulier de ‘forcer” des bits de 
l'accumulateur à O. Prenons la valeur 
#$EF, par exemple, soit en binaire 
11101111”. Un AND #$EF forcera 
le bit 4 (le cinquième en partant de 
la droite) de l’accumulateur à 0 sans 
modifier les autres bits. Si l’accumu- 
lateur contenait 01110101”, on au- 
rait alors : 


01110101 
0110010i 


Tous les bits de l’accumulateur de- 
meurent inchangés, sauf le bit 4 qui 
passe à 0. Si ce bit 4 avait déjà été à 
O avant AND), il le serait resté après. 
En tout état de cause, on est certain 
de trouver O dans ce bit 4 après 
AND. 


En assembleur, cela s'écrirait : 

LDA #$75 

AND #$EF 

et l'accumulateur contient maintenant 
#$65 (01100101). 


Revenons un instant sur l’un des 
programmes d'illustration proposés 
dans l’article précédent. Nous avions 
vu qu'il fallait retirer # $80 au code- 
clavier d'un chiffre pour obtenir son 
code-écran en mode INVERSE. Pour 
ce faire, nous avions utilisé SBC 
#$80. Or les codes écran concernés 


AND 11101111 — 


Initiation à l’assembleur (4) 


Gérard Michel 


sont supérieurs à #$80 et leur bit 7 
(le plus à gauche) est donc à 1. En 
binaire, #$80 vaut 10000000 et le 
complément à 2 de #$80 vaut éga- 
lement 10000000 (calculez-le pour 
vous en convaincre). Retirer #$80 
d'un octet dont le bit 7 est à 1 re- 
vient donc finalement à mettre sim- 
plement son bit 7 à O (1 + 1 = 0) 
sans modifier ses autres bits On 
pourrait obtenir le même résultat par 
un AND #$7F (#$7F = 01111111) 
qui force le bit 7 à O sans affecter les 
autres. Dans la mesure où l’on ne 
connaît pas toujours la valeur du bit 
C avant d'exécuter SBC, cette se- 
conde solution peut nous pennettre 
de faire l'économie d’une instruction 
SEC en garantissant un résultat équi- 
valent. En résumé, si le bit 7 de l’ac- 
cumulateur est à 1, AND #5$7F est 
équivalent à SEC suivi de SBC 
#$80. 


Les différents formats de l'instruction 
AND sont (ADS désignant une 
adresse symbolique) : 


e AND nombre = AND #$NN = 
29 NN (par exemple 29 7F) 

e AND adresse page O0 = AND ADS 
— AND $aa = 25 aa (le ET est 
effectué entre l’accumulateur et le 
contenu de l'adresse aa) 

e AND adresse quelconque = AND 
ADS = AND $aaaa = 2D octet 
bas/octet haut (AND $ED42 = 2D 
42 ED) 

e AND adresse page zéro.X = AND 
ADS,X = AND faa,X = 35 aa 

e AND adresse quelconque,X 
AND ADS,*X = AND $aaaa.X 
3D octet bas/octet haut 

e AND adresse quelconque, Ÿ 
AND ADS,Y = AND $faaaa,Ÿ 
39 octet bas/octet haut 

e AND {adresse,X) = AND (ADS,X) 
= AND ($aa,X) = 21 aa 

e AND (adressel,Y = AND (ADS). Y 
= AND ($aa),Ÿ = 31 aa 


L'exécution de AND exerce une ac- 
tion sur le registre d'état : le bit Z (in- 
dicateur de résultat nul) vaudra 1 si 
l'accumulateur contient O après AND 
et O dans le cas contraire, tandis que 
le bit N (indicateur de signe) sera à 1 
ou 0 selon que le bit 7 de l’accumu- 
lateur sera lui aussi à 1 ou O après 
AND. 


Le ET logique virtuel” 


L'instruction BIT réalise le même 
traitement que AND mais ne remet 
pas le résultat dans l'accumulateur 
qui reste donc inchangé (d'où le 
qualifcatif "virtuel”), En revanche, le 
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registre d'état se trouve affecté par 
BIT. D'une part. l'indicateur Z est 
positionné comme pour AND et, 
d'autre part, les bits 6 et 7 du 
contenu de l'adresse donnée après 
BIT sont copiés dans les bits 6 et 7 
du registre d'état (indicateurs V et 
N) 


Supposons ainsi que vous vouliez sa- 
voir à un instant donné si le bit 7 du 
contenu de l'adresse $25 est à O ou 
1 (nombre positif ou négatif en 
complément à 2), mais sans pouvoir 
modifier le contenu des registres À, X 
et Ÿ. Après une instruction BIT $25, 
un test par BPL (branchement si in- 
dicateur N = 0) ou par BMI (bran- 
chement si N = 1} vous donnera 
l'information souhaitée et vous per- 
mettra d'orienter vos traitements en 
conséquence. De même, si c’est le 
bit 6 qui vous intéresse, BIT $25 
suivi de BVC où BVS conduira au 
résultat. 


L'instruction BIT ne possède que 
deux formats : 


e BIT adresse page 0 = BIT ADS = 
BIT $aa = 24 aa 

e BIT adresse quelconque = BIT 
ADS = BIT $aaaa = 2C octet 
bas/octet haut 


Le OÙ exclusif 


L'instruction EOR réalise un traite- 
ment bit par bit avec les mêmes opé- 
randes et opérateurs que AND: ac- 
cumulateur et autre chose, avec 
résultat de l'opération remis dans 
l’'accumulateur. La table de vérité de 
EOR est : 


OEORO=0 
OEOR1=1 
1EORO=I 
1EOR 1-0 


Un bit du résultat ne sera vrai” que 
si l'un des bits de départ est faux et 
l'autre vrai un EOR sur deux bits 
identiques (0 ou 1) donne toujours 
0. 


EOR #$FF permet de calculer le 
complément à 1 de l'accumulateur, 
par exemple : 


01101001 EOR 11111111 + 
10010110 
L'accumulateur contenait  #$69 


(01101001) et, après EOR #$FF 
(11111111), tous les bits à 1 se re- 
trouvant à O et réciproquement. il 
contiendra #$96 (10010110). En as- 
sembleur, cela s'écrirait : 

LDA #$69 

EOR #$FF 


En revanche, EOR #$00 laisse le 
contenu de l’accumulateur inchangé, 
comme vous n'aurez aucune peine à 
le vérifier. 

L'exécution de EOR affecte les indi- 
cateurs N et Z dans les mêmes 
conditions que celle de AND. Les 
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formats possibles sont : 
e EOR nombre = EOR #$NN = 49 
NN 


e EOR adresse page 0 = EOR ADS 
= EOR $aa = 45 aa 

e EOR adresse quelconque = EOR 
ADS = EOR $aaaa = 4D octet 
bas/octet haut 

e EOR adresse page 0,X = EOR 
ADS,X = EOR $aa,X = 55 aa 

e EOR adresse quelconque, X = 
EOR ADSX = EOR $faaaaX = 
5D octet bas/octet haut 

e EOR adresse quelconque, Y 

EOR ADS,Ÿ = EOR $aaaa,Ÿ 

59 octet bas/octet haut 

EOR (adresse, X) = EOR (ADS,X) 

= EOR ($aa,X) = 41 aa 

e EOR (adresse), Ÿ = EOR (ADS),Y 
= EOR ($aa),Y = 51 aa 


Le OÙ inclusif 


C'est le même, sur le principe, que 
celui de l'Applesoft. Pour que le ré- 
sultat soit vrai”, il suffit cette fois 
que l’un des deux éléments de dé- 
paït le soit sans que l'autre doive né- 
cessairement être ‘’faux”. Le code de 
l'instruction est ORA et elle utilise la 
table de vérité : 


0 ORA O = 0 
OORA1=1 
1ORAO=I 
1 ORA1=1 


Le ORA 5e fait entre l'accumulateur 
et autre chose, le résultat étant tou- 
jours remis dans l'accumulateur. 
Cette instruction permet notamment 
de forcer des bits à 1 sans modifier 
les autres. Par exemple, ORA #$10 
(00010000 en binaire) force le bit 4 
de l’accumulateur à 1 : 


10001011 ORA 00010000 > 
10011011 

En assembleur, cela s'écrirait : 

LDA #$8B 

ORA #$10 


et l'on aurait alors #$9B (10011011) 
dans l’accumulateur. 


À noter que si le bit 7 de l'accumula- 
teur est à 0. ORA #$80 (10000000) 


Etape 3 


est équivalent à CLC suivi de ADC 
#$80. Si le bit 7 de l'accumulateur 
est à 1, vous aurez sans doute cons- 
taté que c'est AND  #$7F 
(01111111) qui équivaut à CLC 
suivi de ADC #$80 puisque, une fois 


éliminées les conséquences de la va- 
leur de l'indicateur C, ADC #$80 
donne le même résultat que SBC 
#$80 (— 128 = 128 = $80). 

De même, lorsque le bit 7 de l’accu- 
mulateur est à 0, ORA #$80 revient 
à lui retirer #$80 (le bit 7 passe à 1 
lorsqu'on ajoute le complément à 2 
de #$80 qui n'est autre que 
#$80...). 


Cette équivalence entre opérateurs 
logiques et ADC/SBC ne peut toute- 
fois être exploitée simplement que 
pour des calculs sur un octet, car 
AND et ORA ne manipulent pas la 
retenue dont on à besoin dès que 
l'on passe à des opérations sur deux 
octets. 


ORA affecte le registre d'état exacte- 
ment comme AND et EOCR (bits N et 
Z); les formats de l'instruction sont : 


e ORA nombre = ORA #$NN = 
09 NN 

e ORA adresse page 0 = ORA ADS 
= ORA $aa = 05 aa 

e ORA adresse quelconque = ORA 
ADS = ORA $faaaa = 0D octet 
bas/octet haut 

e ORA adresse page 0,X = ORA 
ADS,X = ORA $aa,X = 15 aa 

e ORA adresse quelconque,X = 
ORA ADS,X = ORA $faaaaxX = 
1D octet bas/octet haut 

e ORA adresse quelconque, Ÿ = 

ORA ADS,Y = ORA $faaaaŸ = 

19 octet bas/octet haut 

ORA (adresse,X) = ORA (ADS,X) 

= ORA ($aa,X) = 01 aa 

e ORA (adresse), Ÿ = ORA (ADS),Y 
= ORA ($aa),Ÿ = 11 aa 


Décalages et rotations 
Décalage à gauche : ASL 


L'instruction ASL agit sur un octet 
selon le principe suivant : 

— un © entre dans l’octet par la 
droite; 

— tous les bit de l’octet sont donc 
poussés vers la gauche; 

— le bit 7, qui était le plus à gauche, 
n'a plus de place dans l'octet et il 
tombe” dans le bit de retenue C. 


Etope 1 


Prenons par exemple  l’octet 
710100111”. Si on lui fait subir un 
décalage à gauche, il deviendra 
01001110" et le bit 7 qui était à 1 
se retrouve dans la retenue: C=1 
après cette opération. 
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Ouvrons maintenant une petite pa- 
renthèse sur le système décimal. Il 
est évident pour tout le monde que 
210 = 20. Si l'on examine ce résul- 
tat de plus près, on peut dire que le 
chiffre 2 est en fait poussé vers la 
gauche par un O qui entre par la 
droite et même, en raisonnant sur un 
seul chiffre, qu'il tombe finalement 
dans un chiffre de retenue C que 
l'on remet ensuite devant le résultat 
(en binaire, une retenue ne peut va- 
loir que O ou 1, mais elle peut pren- 
dre toute valeur entière entre O0 et 9 
en décimal). Finalement, la multipli- 
cation par 10 en décimal n’est rien 
d'autre qu’un décalage des chiffres 
vers la gauche, poussés par un O qui 
rentre par la droite. 

En binaire, et en toute logique, un 
décalage à gauche revient à multi- 
plier par 2 l’octet qui fait l’objet du 
décalage. 


Soit par exemple l'octet *01110101” 
(117 en décimal); à l'issue du déca- 
lage, on a ”11101010” et C=0: on 
vérifie bien que ”’11101010” = 234 
en décimal = 2x117. 

De même, si on décale à gauche 
710100111” (167 en décimal), on 
obtient 01001110" (78) et C=1. Si 
l'on considère cette retenue de 1 
comme le poids fort du résultat, on 
vérifie que 256+78 = 334 = 2+»167. 


Voyons maintenant les formats de 
l'instruction ASL avant d'examiner 
plus en détail le problème de la mul- 
tiplication par 2 sur deux octets : 


e ASL accumulateur = ASL = OA 

e ASL adresse page O0 = ASL ADS 
= ASL $aa — 06 aa 

e ASL adresse quelconque = ASL 
ADS = ASL $aaaa = OE octet 
bas/octet haut 

e ASL adresse page 0,X = ASL 
ADS,X = ASL $aa,X = 16 aa 

e ASL adresse quelconque, X 
ASL ADS.X = ASL $aaaa,X 
1E octet bas/octet haut 


Soit un nombre stocké sur deux 
octets O1 (poids faible) et O2 (poids 
fort}. Multiplier ce nombre par 2 re- 
vient à : 

— décaler O1 à gauche 

— décaler O2 à gauche 

— ajouter à l'octet O2 ainsi multiplié 
la retenue éventuelle provenant du 
décalage (multiplication) de O1. 


Les lignes 1 à 17 du Programme 1 
vous présentent une première mé- 
thode pour effectuer ce calcul, à 
l'aide des instructions que nous 
connaissons déjà. On initialise une 
variable R (retenue) à O, mais on la 
fait passer à 1 si le test BCC échoue 
après ASL O1 (l'échec signifie que 
c'est un 1 qui est tombé dans la rete- 
nue C}. Ensuite, on charge l’accumu- 
lateur avec O2, on le décale, on lui 
ajoute la valeur de R (0 ou 1) et on 
remet le résultat dans O2. Le sto- 
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ckage intermédiaire de la retenue 
nous est imposé par le fait que ASL 
O2 modifierait le bit C qui ne pour- 
rait donc garder à coup sûr la valeur 
qu’il avait après ASL O1. 

Ne regardez pas trop vite la suite du 
Programme 1, mais sachez néan- 
moins qu'il existe une manière plus 
simple de parvenir au même résul- 
tat.. 


Précisons pour finir que l'exécution 
de ASL agit sur le bit C, bien sûr, 
mais aussi sur l'indicateur N (mis à 1 
si le bit 7 de l’octet est à 1 après 
ASL, et à O sinon) et l'indicateur Z 
(mis à 1 si l'octet ne contient plus 
que des O après ASL, à O sinon}. 


Décalage à droite : LSR 


Mêmes causes, mêmes effets, mais 
dans l’autre sens ! 

— un 0 entre dans l’octet par la gau- 
che; 

— tous les bits sont repoussés vers la 
droite; 

— le bit O, le plus à droite, n’a plus 
de place et il tombe dans la retenue. 


Etope 


LR 


poids fort (O2) par 2. S'il est bien di- 
visible par 2, c’est-à-dire si son bit O 
est à O, on aura C=0 après LSR. 
Dans le cas contraire, on aura une 
retenue C=1 qu'il faudra remettre 
dans le bit 7 de l’octet de poids fai- 
ble (O1) après avoir également divisé 
ce dernier par 2. Reprenons l'exem- 
ple de 334/2 pour illustrer la chose. 


Nous avons déjà vu que 
“10100111” (167) #« 2 = 
01001110” (78) plus une retenue 
C=1 qui est en fait un octet de poids 
fort 00000001”. 


Si l’on divise 01001110” par 2 au 
moyen de LSR, on obtient 
“00100111”, soit 39 qui est bien la 
moitié de 78, mais, pour retrouver 
notre 167 de départ, il nous manque 
128, soit la moitié de 256. Avec le 
bit 7 à 1, “00100111” devient 
"10100111”, soit 167, et l’on peut 
prendre ce 1 dans C qui sera juste- 
ment à 1 après le décalage à droite 
de "00000001". 


Supposons maintenant que le poids 
fort soit 00000010” et le poids fai- 
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Sans revenir sur les subtilités de la 
division par 10, et compte tenu de ce 
qui précède, vous avez déjà deviné 
que l'instruction LSR permet notam- 
ment de diviser un octet par 2. Par 
exemple : 


01001110” (78 en décimal) devient 
700100111” (39) après LSR, avec 


11101010” {234} devient 
“01110101” (117} après LSR, avec 
C=0. 


Mais pour retrouver le résultat de 
334/2, puisque nous avions calculé 
tout à l'heure que 167+2 = 334, il 
faut de nouveau travailler sur deux 
octets. Nous y reviendrons après 
avoir donné les formats de LSR. 


e LSR accumulateur = LSR = 4A 

e LSR adresse page 0 = LSR ADS 
= LSR $aa = 46 aa 

e LSR adresse quelconque = LSR 
ADS = LSR $aaaa = 4E octet 
bas/octet haut 

e LSR adresse page 0,X = LSR 
ADS, X = LSR $aa,X = 56 aa 

e LSR adresse quelconque.X = 
LSR ADS.X = LSR $aaaaX = 
SE octet bas/octet haut 


Pour diviser par 2 sur deux octets, il 
faut tout d'abord diviser l'octet de 


ble ”01001110”, ce qui correspond 
à (2x256) + 78 = 590. La division 
de ‘00000010 par LSR donne 
"00000001" avec C=0, et celle de 
“01001110” donne toujours 
00100111”, d'où un résultat à ce 
stade de (1256) + 39 = 295, qui 
est bien la moitié de 590. II n'est pas 
nécessaire cette fois de modifier le bit 
7 de l’octet de poids faible, car le 
poids fort de départ était pair. ce que 
C=0 après LSR pourra nous indi- 
quer. 


Ce mécanisme des divisions par 2 
serait bien sûr plus facile à analyser si 
lon travaillait directement sur 16 bits. 
Reprenons ainsi nos deux exemples : 


e 334 = 0000000101001110 

LSR 0000000101001110 donne 
0000800010100111 ou encore 
”00000000” et 10100111” 

590 = 0000001001001110 

LSR 0000001001001110 donne 
0000000100100111 ou encore 
00000001” et 00100111” 
Comme nous sommes obligés de tra- 
vailier sur 8 bits, c'est le bit C après 
LSR sur le poids fort qui sert de 
“pont” entre les deux parties du 
nombre sur 16 bits. 


Les lignes 19 à 30 du Programme 1 
vous présentent une première mé- 
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thode pour effectuer ce type de cal- 
cul. On initialise une variable R à 
#$80, soit 10000000, et on décale 
le poids fort OZ par LSR. Si le test 
BCS échoue, c'est que C=0 après 
ce premier LSR; dans ce cas, ASL R 
nous donnera simplement 00000000 
dans R. Ensuite, on charge l’accumu- 
lateur avec le poids faible O1 et on 
le décale. Avec l'instruction @RA R, 
on fait donc ORA 10000000 si € 
était à 1 après LSR O2, ce qui force 
le bit 7 de l’accumulateur à 1, ou 
ORA 00088000 qui laisse l’accumu- 
lateur inchangé dans le cas contraire. 
Le résultat est enfin remis dans O1. 


À noter que le bit N du registre 
d'état est toujours à O après LSR, 
puisque le bit 7 du ‘dernier résultat” 
devient justement 0. Le bit C prend 
la valeur du bit qui tombe dedans, et 
l'indicateur Z est positionné comme 
pour ASL. 


Rotation à gauche : ROL 


L’instruction ROL fonctionne comme 
ASL, sauf sur un point fondamental : 
ce n'est pas systématiquement un 0 
qui rentre dans l’octet par la droite, 
mais la valeur du bit de retenue C (0 
ou 1). Le mécanisme est donc le sui- 
vant : 

— le bit de retenue C rentre par la 
droite; 

— les bits sont poussés vers la gau- 
che; 

— Je bit 7 de l’octet tombe dans la 
retenue. 
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poids fort revient à le décaler vers la 
gauche, puis à donner à son bit de 
droite la valeur de la retenue résul- 
tant du décalage du poids faible. On 
obtendrait le même résultat si le bit 
rentrant lors du décalage était juste- 
ment ce bit de retenue, et c’est exac- 
tement ce que permet de faire l’ins- 
truction ROL. 

Vous trouverez cette seconde mé- 
thode de calcul dans les lignes 32 à 
36 du Programme 1. Nul doute 
qu'elle vous paraîtra plus simple que 
la première. 


Autre exemple d'utilisation de ROL, 
le découpage des octets. Supposons 
ainsi que vous vouliez récupérer dans 
un octet O2 les 4 bits de gauche 
d'un octet O1, qui, à eux seuls, 
constituent une information dont 
vous avez besoin (si O1=#$A2, c'est 
d'avoir O2=#$0A qui vous inté- 
resse}). Le petit programme suivant 
vous permettrait d'y parvenir : 


LDX #4 
LDA #0 
STA O2 
LDA O1 
BO ROL 
ROL O2 
DEX 
BNE BO 


Formats de l'instruction ROL : 


e ROL accumulateur = ROL = 2A 

e ROL adresse page 0 = ROL ADS 
= ROL $aa = 26 aa 

e ROL adresse quelconque = ROL 





Si le bit C est à O avant l'exécution 
de ROL, cette dernière est équiva- 
lente à ASL, mais le fait important 
est que ROL permet de modifier l’or- 
dre des bits à l’intérieur d’un octet 
ou de faire passer des bits d’un octet 
à un autre. 


Reprenons notre problème de la 
multiplication par 2 sur deux octets. 
H est simple de multiplier le poids fai- 
ble grâce à ASL, mais la difficulté ré- 
sulte ensuite de la prise en compte 
d'une éventuelle retenue après la 
multiplication du poids fort par ce 
même ASL. La multiplication par 2 
consiste en un décalage à gauche 
avec entrée d'un O0 à droite. lorsque 
l’on ajoute une retenue 0 ou 1 à un 
octet ainsi multiplié, son bit de droite 
ne peut prendre que les valeurs 0 ou 
1 sans qu’il v ait de retenue se pro- 
pageant à l'intérieur de l’octet. En 
d’autres termes, la multiplication du 
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ADS = ROL $faaaa = 2E octet 
bas/octet haut 

e ROË adresse page 0,X = ROË 
ADS.X = ROL faa,X = 36 aa 

e ROL adresse quelconque, X = 
ROL ADS,X = ROË $faaaa,X = 
3E octet bas’octet haut 


L'’exécution de ROL affecte le regis- 
tre d'état comme celle de ASL. 


Rotation à droite : ROR 


ROR est à ROL ce que LSR est à 
ASL ! Cette fois, le bit € rentre par 
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la gauche, repousse les autres bits 
vers la droite et le bit O tombe par 
conséquent dans la retenue. Si C=0, 
ROR est équivalent à LSR. 


Vous concevez sans doute, surtout si 
vous lisez le Programme 1 plus vite 
que prévu, que ROR peut nous être 
fort utile pour notre division par 2 
sur deux octets. Tout le problème 
consistait justement à faire prendre 
au bit 7 du poids faible décalé à 
droite la même valeur que ceile du 
bit C après le décalage à droite du 
poids fort. Il est donc bien agréable 
de pouvoir décaler ce poids faible en 
faisant rentrer à la place du bit 7 la 
retenue en question, comme vous le 
verrez dans les lignes 38 à 42 du 
Programme 1. 


Pour en revenir maintenant au dé- 
coupage des octets, si l’on veut récu- 
pérer dans OZ les 4 bits de droite de 
O1, il suffit de remplacer dans le pro- 
gramme précédent "B6 ROL” par 
"BO ROR”. C'est bien toujours par 
"ROL O2” qu'il faut faire rentrer les 
bits dans O2: si vous faites "ROR 
O2" et si Ol=#$2F, par exemple, 
vous retrouverez #$FO0 dans O2 et 
non #$0F. 


Formats de l'instruction ROR : 


e ROR accumulateur = ROR = 6A 

e ROR adresse page 0 = ROR ADS 
— ROR $aa = 66 aa 

e ROR adresse quelconque = ROR 
ADS = ROR faaaa = 6E octet 
bas/octet haut 

e ROR adresse page 0,X = ROR 
ADS,X = ROR faa,X = 76 aa 

e ROR adresse quelconque,X = 
ROR ADS.X = ROR faaaaX = 
7E octet bas/octet haut 


L'exécution de ROR aäffecte les 
mêmes indicateurs du registre d’état 
que celle de ROL. 


Découpage du registre 
d'état 

Toutes ces instructions de décalage 
et de rotation permettent de faire 
sortir des bits d’un octet. de les faire 
rentrer dans un autre. et nous 
allons maintenant les utiliser pour dé- 
couper et analyser un octet bien spé- 
cial : le registre d'état du micro-pro- 
cesseur. Pour ce faire, nous évo- 
querons d’abord deux nouvelles ins- 
tructions tenant à l'usage de la pile. 


Nous avons déjà vu qu’il était possi- 
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ble de déposer le contenu de l’accu- 
mulateur au sommet de ia pile par 
PHA et de récupérer le sommet de la 
pile dans l’accumulateur par PLA. 
Ces mêmes manipulations sont possi- 
bles avec le registre d'état au moyen 
de PHP (08), correspondant à PHA, 
et de PLP (28), correspondant à 
PLA. Alors qu’il n'existe pas d’ins- 
tuction équivalente à STA pour sto- 
cker le registre d'état dans une case- 
mémoire, on peut y parvenir malgré 
tout grâce à PHP suivi de PLA, qui 
permettent de récupérer le contenu 
du registre d'état dans l’accumula- 
teur. 


Les lignes 44 à 66 du Programme 1 
constituent une sous-routine qui dé- 
coupe et affiche à l'écran le registre 
d'état bit par bit. Nous allons en dé- 
tailler le fonctionnement. 


— Lignes 45 et 46: le registre sera 
stocké dans la variable P dès l'appel 
de la routine et c'est donc le contenu 
du registre au moment de cet appel 
que nous analyserons. M sera utilisé 
pour l'affichage : il contiendra O ou 1 
selon la valeur des indicateurs du re- 
gistre d'état et ”’*” pour le bit inuti- 
lisé. 

— Lignes 47 à 49: on récupère le 
registre par le biais de la pile et on le 
stocke dans P. 

— Lignes 50 à 52: X servira de 
compteur de boucle (ii y a 8 bits à 
découper) et on initialise M à O. 

— Lignes 53 et 54: par ASL P, on 
fait sortir les indicateurs du registre 
dans l'ordre “bit 7”, “bit 6”, …., ”’bit 
0”. Par ROL M, le bit sorti du regis- 
tre et tombé dans la retenue rentre 
dans M par la droite. ce qui garantit 
que M contiendra toujours 
*00000000” ou ”’00000001”, donc 
0 ou 1. 

— Lignes 55 et 56: si X=6, on est 
au bit 5 du registre qui n'est pas un 
indicateur. On saute alors en SO 
pour afficher ”’x'' (#$AA est le code- 
écran de ”’*” en mode NORMAL). 

— Lignes 57 à 60 : pour afficher 1 
ou 0, on ajoute #$B0 au contenu de 
M afin d'obtenir le code-écran en 
mode NORMAL de “1” ou “0”. On 
utilise ensuite la routine standard 
d'affichage du moniteur qui débute 
en $FDF0. 

— Lignes 61 à 64: LSR M pennet 
de faire rentrer un O dans M par la 
gauche et de faire ressortir le bit qui 
était entré par la droite lors du ROL 
M; après cette instruction, M est donc 
ré-initialisé à 00000000”. Tant que 
X est différent de O après DEX, on 
boucle pour traiter tous les bits du 
registre en séquence. Si X=0, on 
sort de la routine. 


Le Programme 2 sert de jeu d'essai 
pour la routine analysée ci-dessus. 
On fait exécuter certaines instruc- 
tions, puis on va afficher le registre 
d'état qui en découle par un JSR 
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TEST (TEST appelle ta routine du 
Programme 1 en $32F, puis une 
routine du moniteur en $FC62 qui 
envoie un RETURN à Fécran, et ce 
afin de n'’afficher qu'un registre par 
ligne). 

Le programme Basic P2.DEMO 
lance ce Programme 2 et vous 
donne finalement à l'écran une suc- 
cession de registres dont chacun cor- 
respond à l’état des indicateurs à l'is- 
sue des instructions qui précèdent le 
UJSR TEST ayant provoqué son affi- 
chage. Intéressez-vous surtout aux 
deux bits de gauche (indicateurs N et 
V} et aux deux bits de droite {indica- 
teurs Z et C). 


Sur la première ligne, par exemple. 
vous voyez : 

11410000, soit : 

N=1, V=1, 2Z=0 et C=0. 

Cet état résulte de l'opération #$40 
+ #$40, ou encore 64 + 64 en dé- 
cimal, ou enfin ‘’01000000” + 
01000000” en binaire. À issue de 
cette opération, le ‘’dernier résultat” 
est *’1000000” : il est négatif (bit 7 à 
1), d'où N=1, il y a eu débordement 
(retenue du bit 6 sur le bit 7), d'où 
V=1, le résultat est différent de O, 
d'où Z=0, et il n’y a pas eu de rete- 
nue extérieure. d'où C=0. 


Amusez-vous (mais oui!) à analyser 
de cette façon les indicateurs corres- 
pondant aux autres opérations du jeu 
d'essai. Ceci vous permettra de véri- 
fier les indications ‘littéraires” don- 
nées pour chaque instruction étudiée 
quant à son influence sur le registre 
d'état et leur donnera un caractère 
plus concret. 


Recodage des caractères 


Les codes ASCII. sous la forme des- 
quels les caractères disponibles au 
clavier de votre Apple sont stockés 
en mémoire, sont tous inférieurs à 
128. Ce n’est que pour l'affichage à 
l'écran et la saisie-clavier que l'on 
peut trouver des codes de valeur su- 
périeure à 127. 

Si l'on se rappelle que 127 = #$7F 
en hexa et 01111111” en binaire, 
on en déduit que tous les nombres 
compris entre O et 127 en décimal 
ont un bit 7 à O et que ce bit. ayant 
la même valeur pour tous, ne peut 
servir à différencier un nombre d’un 
autre. En d’autres terrnes, 7 bits suffi- 
sent pour coder tous les caractères 
disponibles : le huitième n'apporte 
aucune infonnation supplémentaire. 


Par voie de conséquence, il doit être 
possible de coder 8 caractères en 7 
octets : si l’on récupère pour les 7 
premiers caractères la place occupée 
par les bi ‘’inutiles”, on dispose de 
7 bits libres qui pennettent de coder 
un huitième caractère. Cette possibi- 
lité présente un intérêt certair pour 
quiconque voudrait un jour dévelop- 


per son propre système de gestion 
de fichiers de données, sans passer 
par DOS 3.3 ou autre, car si une dis- 
quette de 140K, par exemple, peut 
contenir 143360 caractères de 8 bits, 
elle peut stocker 163840 caractères 
de 7 bits. Le gain de capacité n’est 
pas tout à fait négligeable. 


Nous nous bomerons pour l'instant à 
voir comment on peut recoder 8 ca- 
ractères en 7 octek et les récupérer 
ensuite en 8 octets pour qu’ils restent 
exploitables par l'Applesoit, le moni- 
teur ou le DOS. 

Le programmme Basic PR3 DEMO 
demande 8 caractères au clavier et 
les POKE à partir de l'adresse 
$9000. Il appelle alors une routine. 
dont le source est Programme 3, qui 
recode le tout en 7 octets, les dé- 
place à l'adresse $9100 (afin qu'il 
n'y ait pas de doute sur l'efficacité du 
recodage) et les reconstitue en 8 
octets. Le programme Basic récupère 
enfin les 8 caractères par des PEEKSs 
à partir de l'adresse $9100. 


Pour vous aider dans l’analyse de la 
routine en assembleur, voici les prin- 
cipes du traitement réalisé : 


e Sur le premier octet, il y a un bit à 
récupérer à gauche. On fait sortir le 
bit 7 de l’octet par ASL. Par un LSR 
sur le deuxième octet, on fait tomber 
dans la retenue son bit O puis, par 
un ROR sur le premier octet, on fait 
rentrer ce bit O du deuxième octet 
dans le premier tout en remettant à 
leur place les bits O à 6 de celui-ci. 


e Sur le deuxième octet, il y a donc 
maintenant 2 bits à récupérer. Par 
deux ASL successifs, on fait soitir les 
bits 6 (ancien bit 7) et 7 (0 entré lors 
du LSR). En faisant ensuite deux fois 
"LSR sur le troisième octet suivi de 
ROR sur le deuxième”, on récupère 
dans les bits 6 et 7 du deuxième les 
bits O et 1 du troisième. 

e Et ainsi de suite jusqu'au septième 
octet sur lequel on fait sept fois ASL, 
puis sept fois ”’LSR le huitième - 
ROR le septième”. Dans ce dernier 
octet, on a finalement le bit 6 du 
septième de départ en position O, et 
les bit O à 6 du huitième octet aux 
positions 1 à 7 

e Pour retrouver 8 octets à partir de 
7, on commence par faire tomber le 
bit 7 du premier octet dans la rete- 
nue par ASL. Puis on enchaîne ROL 
sur le deuxième, ROL sur le troi- 
sième... ROË sur le huitième : le bit 
7 de chacun des 7 octets se retrouve 
ainsi en bit O dans le suivant. Un 
LSR sur le premier octet lui redonne 
alors sa forme de départ {remise en 
place des bits décalés à gauche par 
ASL et rentrée d'un 0 en position 7). 
e Le deuxième octet a maintenant 
récupéré ses 7 bits ”utiles”; il lui 
reste à en céder un (son bit 7 actuel) 
qui appartient au troisième (c'était 
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son bit 0 de départ) On fait donc 
ASL sur le deuxième, suivi de ROL 
sur le troisième, ROL sur ie qua- 
trième.. ROL sur le huitième. Un 
LSR sur le deuxième octet lui re- 
donne enfin sa forme intiale. 


e Ce mécanisme se poursuit jusqu’à 
ce que l'on ait traité de même le sep- 
tième octet (ASL octet 7 - ROL octet 
8 - LSR octet 7). Le huitième octet a 
dès lors retrouvé ses 7 bits utiles, et 
un AND #$7F force son bit 7 à 0 


pour garantir un code ASCII inférieur 
à 128. il ne reste plus qu’à rendre la 
main au Basic pour qu'il récupère les 
8 caractères et les affiche. 





0325 31 ; 
Programme 1 0325 32 MULTIPLICATION PAR 2 SUR 2 OCTETS 
0325 33  ;DEUXIEME METHODE 
0325 0606 34 ASL 01 
*#END OF PASS 1 0327 2607 35 ROL 02 
**END OF PASS 2 0329 60 36 RTS 
032A A7 9: 
0300 1 ORG 5300 032A 38 DIVISION PAR 2 SUR 2 OCTETS 
0300 2 MULTIPLICATION PAR 2 SUR 2 OCTETS| 0324 39 DEUXIEME METHODE 
0300 3 ;PRAIERE METHODE 0324 4607 40 LSR 02 
0300 4 01 EPZ $6 032€ 6606 41 ROR Oi 
0300 5 02 EPZ $7 032E 60 42 RTS 
0300 EUR EP2 $8 032F 43 ; 
0300 A900 ? LDA #0 032F 44  ;0ECOUPAGE DU REGISTRE D'ETAT 
0302 8508 e STA R 032F 45 P EP2 $18 
0304 0606 9 ASL 0 032F 46 # EPZ $19 
0306 7002 10 BCC SUITE! 032F 08 47 PHP 
0308 Eé08 11 INC R 0330 68 48 PLA 
0394 A5S07 12 SUITES LDA 02 033i 0518 49 STA P 
030C 0A 13 ASL 0333 A208 50 LDX #8 
030D 16 54 CLC 0335 A900 en LDA #0 
030E 6508 15 AOC R 033? 8519 52 STA M 
0310 8597 56 STA 02 0339 0618 53 St ASL P 
0312 60 3? RTS 0338 2619 54 ROL M 
0313 18 ; 0330 E006 55 CPX hé 
0313 13 DIVISION PAR 2 SUR 2 OCTETS 033F F00E sé BEQ S0 
0313 20  ;PREMIERE METHODE 0341 A519 57 LDA M 
0313 A980 2 LDA #580 0343 18 58 CLC 
0315 8508 22 STA R 0344 6980 59 ADC #5BD 
031? 4607 23 LSR 02 0346 20F0FD 60 S2 JSR SFDFO 
0319 8002 24 8CS SUITEZ 0349 4619 éi LSR M 
0318 0608 25 ASL R 0348 CA 62 DEX 
0310 AS06 26 SUITE2 LDA O1 034C D0E8 63 8NE s1 
03:F 44 27 LSR 034E 60 64 RTS 
0320 0508 28 ORA R 034F A9AA 65 50 LDA San 
0322 6506 29 STA #1 0351 DOF3 és ENE S2 
0324 60 30 RTS 0353 67 3 
; : 5 0308- Eé 08 AS 07 04 18 65 0B  0330- 68 85 18 A2 0B A9 00 85 
Récapitulation 1 0310- 85 07 60 A9 80 85 08 46  0338- 19 06 18 26 19 E0 06 FO 
#300. 352 0318- 07 80 02 06 08 AS 06 4A 0340- Of AS 19 18 69 80 20 F0 
0320- 05 08 85 06 60 Dé 06 26 0348- FD 46 19 CA D0 EB 60 A9 
0300- A9 00 85 08 06 06 90 02  0328- 07 60 46 07 66 06 60 08  0350- AA DD F3 
Programme 1.DEMO (72: PRINT "MULTIPLICATION 1 
: °R 
40 POKE 7,2 / 2S5é6: POKE 6,2 - 256 
1 REM  DEMONSTRATION DES MULTIPLI * PEEK (7): PRINT : CALL 76 
CÂTIONS ET DIVISIONS PAR 2 SU 8 + 19:R = PEEK (6) + 256 x 
R 2 OCTETS PEEK (47): PRINT "DIVISION i 
2 REM LA DIVISION PAR 2 D’'IN NOM SR 


BRE IMPAIR DONNE BIEN SUR UN 50 POKE 7,2 / 256: POKE 6,2 - 256 
RESULTAT APPROCHE PAR DEFAUT *# PEEK 7): PRINT : CALL 76 
CLE CALCUL NE PORTE QUE SUR D 8 + 37:R = PEEK (6) + 256 * 
ES NOPBRES ENTIERS) PEEK €7)3 PRINT "MULTIPLICAT 
9 REM ION 2: "R 
6  REM 60 POKE 7,2 / 256: POKE 6,2 —- 256 
10 PRINT CHR$ (4)"BLOAD PROGRAM *% PEEK (7): PRINT : CÂLL 76 
E 1.0BJ" 8 + 42:R = PEEK (6) + 256 * 
20 TEXT ; HOME : INPUT “VOTRE N@M PEEK (7): PRINT “DIVISION 2 
BRE : “52: IF 2 > 32767 THEN SUR 
20 80 PRINT : PRINT “MULT. BASIC : ” 
30 POKE 7,2 / 256: POKE 6,24 - 256 Z * 2: PRINT : PRINT “DIVISIO 
*# PEEK {7): PRINT 3: CALL 76 N BASIC : "Z / 2: PRINT : GET 
8:R = PEEK (6) + 256 x PEEK 2$: GOTO 20 
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LE... RE... LIÈLE... LiLE 


m.b.d.c. PPle /e, Apple ///, Mac-Intoch, 
BFM 186. dragon, oric, alice, casio 


m.b.d.c disquettes, Flexettes, 3M, Verbatim 
"listing, rubans encreurs. 


m.b.d.c le conseil, le matériel, les périphériques 
les logiciels, les consommables, 


m.b.d.c. !€ S-A.V: sur place. 
le Service Complet. 


db m.b.d.c. 172, RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
Dr OUVERT DU MARDI AU SAMEDI DE 9h30 à 12h ET DE 14h30 à 19h 





AE355 : machine de bureau 
ri 


e La nouvelle écriture électronique. 

La machine à écrire AE 355 compoñte une électronigte de pointe qu en 
fait une machine hautement perfectionnée : introduction électronique du 
papies, tabulation électronique, décimale, repositionnement automatique 
après correction, régulation étectrenique de la force d'impression, centrage 
et souligné, marges en retrait pour paragraphes et alinéas, touche 
1/2 espace et la qualité “courrier” de ses margterites. 


e De hautes performances. 

Cette machine présente une fiabilité exceptionneile : clavier de 46 touches 
{100 caractères et signes). 2° clavier pour signes et symboles particuliers, 
grande ligne d'écriture 292 mm, curseur de rappel des marges, mémoire 
de correction automatique d'une ligne complète, sélection de pas d'écriture 
(10, 12,15), 6 rappels lumineux, conservation marges-thulations : 7 jours. 


! KARDEX # 
[NI LC | 
C 


201, rue Carnot æ 
94120 FONTENAY-S/BOIS 
Tel.:(1)876.11.10 






e AE 355, la super compact qui voit loin : 
une machine à écrire électronique de bureau 
une imprimante pour micro-ordinateur 


La NAKAJIMA AE 355 répand déja aux exigences nouvelles de l'informatique. 
Elle peut être utilisée en parallèle comme imprimante terminale. De plus, elle 
peu! ête connectée en série avec un ordinateur par l'intermédiaire d'ua boîtier 


TF2 qui dispose d'une mémoire tampon de 2K æ œ 
SP où 
0 


m2 an GS ee = = sa es al 
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LEAETE 
BRE TU: 


æw 
Ke 


R 


RTE 


Programme 2 


#**ENO OF PASS 1 
#*END OF PASS 2 


1900 1 ORG #%1000 
1000 2 

1000 3 ; 

1000 A900 4 LDA HO 
1002 48 S PHA 

1093 28 é PLP 

1004 A740 7 LDA ##$40 
1006 18 8 CLC 

1007 6940 ? ADC #$40 
1009 20A410 10 JSR TEST 
100€ A940 15 LDA #$40 
100€ 38 12 SEC 

100F E930 13 S8C #530 
1011 20À410 14 JSR TEST 
1014 A940 15 LDA #540 
1016 38 16 SEC 

1017 E950 17 SBC ##50 
1019 20410 18 JSR TEST 
101C A940 19 LDA #$40 
101E 38 20 SEC 

101F E750 21 S8C 4550 
1021 E900 22 sec #0 
1023 204410 23 JSR TEST 
1026 A900 24 LDA #0 
1028 20À410 25 JSR TEST 
1028 A9FF 26 LDA #S$FF 
102D 20410 27 JSR TEST 
1030 A90B 28 LDA #6 
1032 C908 29 OP #6 
1034 20410 30 JSR TEST 
1037 A908 31 LDA #8 
1039 C910 32 O4 #$10 
1038 204410 33 JSR TEST 
103E ÀA908 34 LDA #8 
1040 €902 35 CMP #2 
1042 20À410 36 JSR TEST 
3045 A9FF 37 LDA #SFF 
1047 297F 38 AND ##7F 


Récapitulation 2 


1000- A9 00 48 28 A9 40 18 69 
1008- 40 20 A4 10 A9 40 38 E9 
1010- 30 20 À4 10 À9 40 38 E9 
1018- 50 20 A4 10 A9 40 38 E9 


Programme 2.DEMO 


1020- 
1028- 
1030- 
1038- 
1040- 
1048- 
1050- 
1058- 
1060- 


50 
20 
A9 
08 
C9 
?F 
20 
A4 
20 


1 REM JEU D'ESSAI POUR LE DECOUP 


AGE DU REGISTRE D'ETAT 


S  REM 


Programme 3 


##END CF PASS 1 
*#*END OF PASS 2 





0300 1 ORG #$300 
0300 2 
0300 3 
0300 4 SY EPZ 86 
0309 S O1 EQU $9000 
0360 A200 6 LDX #0 
0302 AOGI 2 LOY #1 
0304 8406 8 sS3 STY SY 
0306 1E0090 9 So ASL D1,x 
0309 68 10 DEY 
030À 90FA if SNME S0 
030C 4406 42 LOY SY 
030E E8 13 Si ENX 
| 


14 


3 
CODAGE DE 8 CARACTERES EN 7 


OCTETS 


3JEU D’ESSA1 PQUR LE REGISTRE D'ETAT 


20 
A9 
08 
20 
A4 
10 
A9 
FF 
A9 


204410 
A9FF 
2780 
204410 
A980 
2901 
20À410 
A9FF 
BSCE 
24CE 
204410 
A9FF 
A200 
B6CE 
24CE 
20À410 
Aÿ911 
a9i1i 
20À410 
A9FF 
4980 
20À410 
A9?F 
0980 
20À410 
A940 
0940 
20À410 
A940 
0900 
20À410 
A900 
0900 
20À410 
A9FF 
85CE 
CéCE 
24CE 
204410 
60 
202F03 
2062FC 
A900 
48 

28 

60 


6  REM 
10 DS = 


030F 
0312 
0313 
03ié 
0317 
0319 
0318 
031C 
031D 
031F 
0321 
0321 
0321 
0321 
0323 
0326 
0329 
0328 
032C 


SE0090 
CA 
?7E0090 


A20é6 
8D0090 
D0091 
CA 
18F7 


39 
a0 
ai 

a2 
43 
44 
as 
46 
47 
48 
a9 
50 
51 

52 
53 
54 
55 
36 
57 
58 
39 
60 
61 

62 
63 
64 
65 
éé 
6? 
é8 
69 
70 
71 

72 
73 
74 
75 
76 
77 
78 
79 
80 
81 

82 
83 
84 


TEST 


1068- 
1070- 
1078- 
1080- 
1088- 
1090- 
1098- 
1040- 
1048- 


CHRS (4): 
PROGRAMME 1.0BJ" : 
DAD PROGRAMME 2,0BJ": TEXT : HOME 
: CALL 4096 


$ 
ÿ 


TO 


TRANSFERT 
(e] 


JSR 
LoA 
AND 
JSR 
LOA 
AND 
JSR 
LDA 
STA 
BIT 
JSR 
LOA 
£DX 
STX 
BIT 
JSR 
LDA 
EOR 
JSR 
LDA 
EOR 
JSR 
LDA 
DRA 
JSR 
LDA 
ORA 
JSR 
LDA 
ORA 
JSR 
LDA 
DRA 
JSR 
LDA 
STA 
DEC 
BIT 
JSR 
RTS 
JSR 
JSR 
LOA 
PHA 
PLP 
RTS 


TEST 
#SFF 
##$80 
FEST 
#$680 
#1 
TEST 
#SFF 
$CE 
$CE 
TEST 
#SFF 
#0 
CE 
$CE 
TEST 
#$11 
##1i 
TEST 
#SFF 
#$680 
TEST 
#$7F 
#$80 
TEST 
##40 
##40 
TEST 
#$40 
#0 
TEST 
#0 
#0 
TEST 
#sFF 
SCE 
$CE 
$CE 
TEST 


332F 
sFCé2 
#0 


CE 24 CE 20 A4 10 A9 11 
49 11 20 A4 10 A9 FF 49 
80 20 A4 10 A9 7F 09 80 
20 À4 10 À9 40 09 40 20 


A4 1 


10 A9 00 09 00 20 À4 10 
A9 FF 85 CE Cé CE 24 CE 
20 A4 10 60 20 2F 03 20 
62 FC A9 00 48 28 60 


PRINT D$"BLOAD 


EQU 
LDX 
LDA 
STA 
DEX 
BPL 


PRINT D$"BL 


o1,X 
01,X 
si 
sy 
#7 
s3 
DES 7 OCTETS RECODES 
$9100 
hé 
01,x 
0,X 


TO 
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032C 33 $RECONSTITUTION DE 8 CARACTERES À PARTIR DE 7 OCTEFS 
032C 34 SX0 EP2 $8 
032C 35 SX1 EPé $9 
032C A200 36 LDX #0 0343 B8 48 CLVU 
032E 8608 3? sé STX Sx0 0344 50F3 49 BVC Sa 
0330 8609 38 STX SX: 0346 68 50 S5 PLA 
0332 Eé09 39 INC SX] 0347 A608 91 LEX SX0 
0334 1E0091 40 ASL 0,X 0349 SEO91 S2 SR O,X 
0337 A609 ai LDX SX] 034C E8 53 INX 
0339 3E0091 42 sq ROL 0,X 034D E007 54 CPX #7 
033C 08 43 PHe 034F DODD 35 BNE S6 
0330 E8 44 INX 0351 8D0091 S6 EDA G,X 
033€ E008 4S CPX #8 0354 297F 57 AND #s7F 
0340 F004 46 BERG SS 0356 9D0091 58 STA 0,X 
0342 28 47 PLP 0359 60 S9 RTS 
L < : 0318- F5 AQ 06 CE EG EO 07 D0 0340- F0 04 28 B8 50 F3 68 A6 
FÉCARIUISNONS 0320- E3 A2 06 BD 00 90 9D 00 0348- 08 SE 00 91 E8 E0 07 DO 
0300- A2 00 AY 01 84 06 1E 00 0328- 91 CA 10 F7 A2 00 B6 08 0350- DD 8D 00 #1 29 7F 9D 00 
0308- 90 88 DO FA A4 06 E8 5E 0330- 86 09 Eé 09 1E 00 91 A6 0358- 91 60 
0310- 00 90 CA 7E 00 90 88 DC 0338- 09 3E 00 91 08 EB E0 06 
4 + 256 
ILOAD PR3.DEMO 30 TEXT : HOME : FOR I = O0 TO 7: PRINT 
ILIST " CARACTERE ND "I° : ";: GET C 
$C1): PRINT C1): POKE O1 + 
1 REM  DEMONSTRATION DU CODAGE DE 1, ASC (C$(I))2: NEXT : PRINT 
8 CARACTERES EN 7 OCTETS : PRINT : CALL 768 
5 REM 40 FOR I = O0 TO 7:CC$(I1) = CHRS 
6 REM ( PEEK C8 + 1)): PRINT "CARAC 
10 HIMEM: 9 x 4096 — 1 TERE NO "1° = “CC$(I): NEXT 
20 PRINT CHR$ (4)"BLOAD PROGRAM S0 PRINT : GET Z$%: GOTO 30 


Une des contraintes du Basic réside 
dans la définition de ses variables : 
en effet, toutes les variables d'un 
programme sont globales, c'est-à-dire 
que les valeurs de chacune sont, à 
un instant donné, identiques quelque 
soit le niveau où l'on se situe dans le 
programme. 


L'utilisation de variables locales, en 
revanche, permet. lors de l'écriture 
d'un sous-programme, d'affecter les 
noms des variables internes à ce 
sous-programme sans devoir se sou- 
cier si ces noms sont déjà utilisés par 
ailleurs. D’où une approche modu- 
laire plus simple des problèmes, et 
une programmation structurée plus 
efficace. 


La routine de PROCEDURE s'inspire 
du HBASIC et de HAIFA, elle per- 


récursifs avec passage de paramètres. 


Trois commandes sont disponibles : 


e & HOME iünitialise la pile et la 
place sur la carte langage (pour un 
Apple Il Plus) ou dans les 16K 
supplémentaires pour le //e ou le 
l/c, pour éviter d'encombrer la 
mémoire centrale. 


e & DEF <nom>;<variables éven- 
tuellement précédées de ”!”> 
marque le début d'un sous-pro- 
gramme. Le nom doit correspon- 
dre aux règles de syntaxe des ins- 
tructons DEF FN de l’Applesoft. 
Les variables suivant le point-vir- 
gule sont internes à l'exception de 
celles précédées par un point 
d'exclamation, qui sont alors glo- 
bales. 

Exemple : & DEF P1L:A,B,!C 


Procédure & 
Philippe Le Dru 


étre des chaînes de caractères. At- 
tention : celles-ci peuvent en outre 
être perdues si un nettoyage mé- 
moire intervient avant leur ”resto- 
ration”. 

e & FN <nom>;<variables où ex- 
pressions numériques> 
appelle le sous-programme. Les 
valeurs des variables ou expres- 
sions numériques sont calculées et 
affectées aux variables locales. 
L'ordre FN doit comporter le 
même nombre d'expressions que 
le sous-programme comporte de 
variables. 


Comme dans le cas de l'instruction 
FN, ou comme pour les PROCEDU- 
REs en Pascal, la définition d’une 
procédure doit en précéder l'appel. 


met l’utilisation de sous-programmes Les variables globales ne peuvent = 
O0 REM PROCEDURE . DEMO 34 TEST = TEST + 
1 REM 35 PRINT "GLOBAL :TEST="TEST 
9 PRINT CHR$ (4)"BRUNPROCEDURE. 40 NEXT : END 

OBJ0" 100 & DEF PROC;'I,TEST 
10 & HOME 120 I = IJ:TEST = TEST x Z 
11 GOSUB 100 125 PRINT "PROC: TEST="TEST 
20 FOR I = 1 TO 11 130 & END 
30 & FN PROC;I,TEST 140 RETURN 

ASE Ses CERR. 
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Procédure OBJO 80C8- 80 CE Eé 80 ÀE D8 80 E0 81A0- 20 E3 DF 85 08 84 09 2C 








80D0- DO 80 06 2C 82 CO 4C 10 81A8- 83 CO 2C 83 CO A5 08 20 
8000- A7 4C 8D FS 03 A7 10 8D 80D8- D4 &D 00 E0 60 AE D8 80 8180- BA 80 ÀS 09 20 BA 80 2C 
8008- F6 03 49 80 8D F7 03 60 80E0- E0 EO 80 EF AD 00 EO EE 8188- &2 CO 20 B7 00 FO 0E 20 
8010- C9 97 DO 03 4C Àé 80 C9 80E8- DA 80 EE ES 80 DO 06 EE 81C0- 8E DE ÀS 88 85 18 A5 89 
8018- 88 DO 03 4C 2F 80 C9 C2 80F0- D8 80 EE Eé 80 60 20 81 81C8- 85 f9 4C 3A 81 2C 83 CO 
8020- DO 03 4C Fé 80 C9 80 DO 80F8- 00 09 80 85 14 20 EA DF 81D0- 2C 83 CO ÀS 1C 20 BA 80 
8628-— 03 4C FD 81 4C 7C D9 20 8100- 85 BA 84 88 A0 01 81 BA 81D8- 45 88 20 BA 80 A5 89 20 
8030- 81 00 09 80 85 14 20 EA 8108- 85 1A C8 81 8A 85 18 A9 81E0- BA 80 À5 75 20 BA 80 A5 
8038- PF 85 BA 84 88 20 6% DD 8110- 38 20 CQ DE À9 01 85 1C 81E8- 76 20 BA 80 A9 C2 20 BA 
8040- 20 Dé E3 A7 38 20 C9 DE 8118- A5 88 85 18 AS B9 85 19 81F0- 80 2C 82 CO À5 1A 85 88 
8048- AS 82 48 AS 81 48 AS 87 8120- 20 8i 00 FO 08 C9 2C DO 81F&- À5 18 85 89 60 20 81 00 
8050- 48 ÀS 88 48 A9 01 85 1C 8128- F7 Eé 1C DO F3 A0 00 81 8200- 2C 80 CO 20 DD 80 C9 C2 
8058-— 20 81 00 F0 08 C9 2C DO 8130- 8A CS tC F0 05 A2 2A 4C 8208- F0 06 2C 82 CO 4C 79 DS 
8060- F7 Eé tC DO F3 ÀS 1€ 48 8138- 12 D4 ÀS 14 85 88 ÀS 18 8210- 20 DD 80 85 74 20 DD 80 
8068- A0 00 68 91 8A C8 CO 0S 8140- 85 89 A2 00 20 87 00 C9 8218- 85 75 20 DD 80 85 89 20 
8070- DO F8 20 87 00 C9? 00 F0 8148- 21 DO 04 20 8 00 E8 S% 8220- DD 80 85 88 20 DD 80 85 
8078- 16 20 81 00 C9 00 FO OF 8150- 1D 20 E3 DF 85 85 85 06 8228- 1€ C9 00 DO 04 2C 82 Ca 
8080- C5 AF DO FS 20 81 00 C9 8158- 84 86 84 07 20 &7 00 FO 8230- 60 20 DD 80 85 09 20 DD 
8088- 80 DO EE 20 81 00 60 A0 8160- 03 20 8E DE AS 88 85 IA 8238- 80 85 08 20 BD 80 85 07 
8090- 02 81 88 F0 0E 18 AS 88 8168- A5 89 85 18 2C 83 C8 2C 8240- 20 DD 80 85 06 AS 09 FO 
8098- 69 04 85 88 90 02 Eé 89 8170- 83 CO A0 04 81 06 20 BA 8248- 09 A0 05 88 81 06 48 88 
80A0- 4C 79 80 4C 10 D4 20 81 8178- 80 88 10 F8 À5 06 20 BA 8250- 10 FA A0 00 20 DD 80 91 
8048- 00 A9 00 8D DA 80 8D ES 8180- 80 À5 07 20 BA 80 2C 82 8258- 06 C8 CO 05 DO Fé A5 09 
8080- 80 A9 E0 8D D8 80 8D Eé 8188- Ce A5 18 85 88 AS 19 85 8260- F0 0 A0 00 68 91 08 C8 
8088- 80 60 CE DA 80 CE ES 80 8190- 89 AS 1D DO 08 85 08 85 8268- C& 05 DO F8 Cé 1C AS 1C 
80C0- AE DA 80 E8 DO 06 CE D8 8198- 09 20 52 DA ÀS 09 FO 07 8270- DO 8F FO 85 
Programme PROCEDURE 242 BNE 1 8é PHA 

43 JMP ADHOME 87 LDY #0 
LISA 2.5 44 “1 CMP #$B8 88 “0 PLA 
À 5 6e 6 6 De De DE DE DE DE DE DEEE EX 45 BNE >2 89 STA ($84),Y 
2 38& HOME 46 JMP ADDEF 90 INY 
3 ;j& DEF NOM;,A,8,'C 47 *2 CMP H$C2 91 CPY #5 
4 3;3& END 48 BNE >3 92 BNE <0 
S 584 FN NOM ;Xa4Y,C<t1) 49 JMP ADFN 93 JSR CHRGOT 
5 DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE 50 ‘3 CMP #$80 94 CMP #hO 
? ORG $8000 Si BNE )>4 95 BEQ >4 
8 OBJ $800 52 JMP ADBEND 96 3; RECHERCHE &END 
Dog 53 ‘4 JUMP $D97C 97 “3 JSR CHRGET 
{1 BAS EPZ $D0 SS ;&DEF NOM;4,B,!C 99 8EQ >4 
12 HAUT EPZ $E0 DÉS 100 CMP h$AF 
{3 NV EPZ $1C 957 ADDEF JSR CHRGET 101 BNE <3 
14 FN EPZ $14 98 3ADRESSE VAR. NOM 102 JSR CHRGET 
15 TX EPZ $18 99 ORA #$80 103 WP #H#$60 
16 WRT EQU $C083 60 STA $14 104 BNE <3 
17 RM EQU $C080 61 JSR FNGET 105 JSR CHRGET 
18 RO1A EQU $C082 62 STA $8A 106 RTS 
19 TP EPZ $06 63 STY +8B 107 3FIN LIGNE 
20 ;ROUTINES APPLESOFT 64 JSR CHKNITA 198 “4 LDY #2 
21 CHRGET EQU $0081 65 JSR ERRDIR 109 LDA ($88),Y 
22 CHRGOT EQU $00B/7 66 LDA ‘ ; 110 8EG >5 
23 FNGET EQU $DFEA 67 JSR SYNCHR 111 ELEC 
24 CHKNIM EQU $DD4éA 68 LDA $82 112 LDA $B8 
25 ERRDIR EQU $E3D6 69 PHA 113 ADC #4 
26 SYNCHR EQU $DECO 70 LDA $8i 114 STA $88 
27 PTRGET EQU $0FE3 71 PHA TLSs 8CC 6 
28 CHKCOM EQU $DEBE 72 LDA $B9 116 INC $89 
29 LET EQU $DAS2 73 PHA 11.7: 6 JMP <3 
30 RETERR EQU $D979 74 LDA $B8 118 ‘S JUMP $D410 
31 Ps =—-——— 7: PHA 119 J=================2= 
32 3INITIALISE & 76 3NB VAR =NB DE , +1 120 ;&HOME 
33 LDA #$4C ?7 LDA #1 121 3 CINITIALI SATION) 
34 STA $3F5 78 STA NW TR RD ENTER EE 
35 LDA HLASEL PO ARLES | JSR CHRGET 123 ADHME JSR CHRGET 
36 STA $3F6 80 BEQ >2 124 LDA #0 
37 LDA /LABEL 81 CMP ”, 125 STA Pit1 
38 STA $3F7 82 BNE <1 126 STA P2+1 
39 RTS 83 INC NV 127 LDA HHAUT 
40 3AIGUILLAGE 84 BNE <1 128 STA Pf#2 
41 LASEL CMP ##$97 B5n;2 LDA NV 129 STA P2+2 
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130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
14i 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
{70 

171 

172 
173 
174 
175 
176 
177 
178 
179 
180 

1ai 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
197 
198 
199 


°0 LDX 


MEMERR : 
$D410 
Pi STA 


En —— 


, 
DEPILE 


MEMERR 
pP2 LDA 
P1+i 
P2+1 


jt FN NOM 3X#Y,B80C1) 


, 
ADRESSE FONCTION 
ADFN JSR CHRGET 
ORA h#$80 
STA $14 
JSR FNGET 
STA $8A 
STY $88 
LDY #1 
LDA {$BA) ,Y 
STA FN 
INY 
LDA <$8A),Y 
STA FN+1 
LDA :; 
JSR SYNCHR 
JVERIF NB VARIABLES 
LDA #1 
STA IV 
5 EMPILE TXTPTR 
LDA $88 
STA TX 
LDA $B9 
STA TX+i 
>» COMPTE LES VIRGULES 
71 JSR CHRGET 
BEG >2 
CMP, 
BNE <1 
INC NW 
BNE <1 
2 LDY #0 
LDA (884) ,Y 
CMP NU 
BEGQ >0 
LDX 
JMP 
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RAUTx*256 


200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
26B 
269 


; 
3RECH VAR MUETTE 
*0 LDA FN 
STA 5B8 
LDA FNti 
STA 589 
3TEST TRANSFERT 
LOX #0 
CHRGOT 
CMP ‘! 
BNE D>4 
CHRGET 


*4 STX $1D 
;POS VAR MUETTE 
JSR PTRGET 
STA $85 
STA $06 
STY $86 
STY $07 
> SAUTE VIRGULE 
JSR CHRGOT 
BEQ )1 
CHKCOM 
“1 LOA $B8 
STA FN 
LDA $B9 
STA FN+1 
;EMPILE VAR MUETTE 
BIT WRT 
BIT WRT 
LDY #4 
+2 LDA ($06),Y 
JSR EMPILE 
DEY 
BPL <2 
;EMPILE POSITION 
LDA $06 
JSR EMPILE 
LDA $07 
JSR EMPILE 
BIT ROM 
;RESTAURE TXTPTR 
LDA TX 
STA 588 
LDA TX+1 
STA $B9 
; TEST 
LDA $10 
BNE >5 
; CHARGE VAR MUETTE 
STA $08 
STA $09 
JSR LET 
LDA $09 
BEQ 6 
;VAR À TRANSFERER 
‘5 JSR PTRGET 
STA $08 
STY #09 
> EMPILE POS TRANSF 
6 BIT WRT 
BIT WRT 
$08 
EMPILE 
LDA $09 
EMPILE 
ROM 





3FIN D”’INSTRUCTI ON 
JSR CHRGOT 
BEQG >3 
JSR CHKCOM 

;STOCKE LE PTR 
LDA $B8 
STA 7X 
LDR $89 
STA TX+i 
JMP <0 

>EMPILE RETOUR 

*3 BIT WRT 
BIT WRT 
LDA NV 
JSR EMPILE 
LDA $B8 
JSR EMPILE 
EDR $B9 
JSR EMPILE 
ELDA $75 
JSR EMPILE 
LDR $76 
JSR EMPILE 
LDA #8$C2 
JSR EMPILE 
BIT ROM 

; EXECUTION SP 
LD FN 


CHRGET 
RAM 
DEPILE 
#$C2 
BEQ >0 
ROM 
RETERR 
DEPILE 
$76 
DEPILE 
$75 
DEPILE 
$B9 
DEPILE 
STA $B8 
>DEPILE NB VAR 
JSR DEPILE 
STA NV 
SI NUL —-2RETOUR 
se CP HO 
BNE 1 
BIT ROM 
RTS 
°1 JSR DEPILE 
STA $09 
JSR DEPILE 
STA 508 
JSR DEPILE 
STA $07 
JSR DEPILE 
STA $06 
LDR $09 
BEG >4 
3; STOCKAGE PROVISOIR 
LDY #5 


RARE 
2 : + 
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340 DEY 


341 “5 LDA ($06),Y 
342 PHA 

343 DEY 

344 BPL <s 

345 ; RESTAURE VAR MUET 
346 ‘4 EDY #0 

347 *2 JSR DEPILE 
348 STA ($06),Y 


Si l'apprentissage du Basic ne me 
pose pas trop de problèmes, l'utilisa- 
tion de l’assembleur ne me paraît 
pas aussi évidente. 

En conséquence. un bon exercice 
consiste, selon moi, « décortiquer les 
routines publiées dans Pom's pour 
les adapter à de nouvelles situations. 


Ainsi, j'ai pensé qu'une modification 
de la routine de disquette virtuelle 
16K de Michel Haag (Pom's 12) 
pourrait rendre quelques services aux 
possesseurs de carte 80 colonnes 
étendue” en transformant cette ré- 
serve d'octets en un pseudo-disque 
bien pratique. 


Les deux programmes publiés ici 
permettent d'atteindre cet objectif : 


e La routine RWAUX proprement 
dite, qui sera logée à la place du 
secteur $F du directory dans la 
carte langage. afin de la rendre in- 
dépendante des commutateurs 
RAMRB et RAMWRT, et qui 
donne accès à la pseudo-dis- 
quette. 


e La routine RWAUXINIT qui se 
charge de la mise en place de 
RWAUX. du VTOC. du directory 


349 INY 

359 CPY #5 

351 BNE «2 

352 ; TRANSFERT 

353 LOA $09 

354 8EQ >? 

355 LOY #0 

356 “4 PLA 

357 STA (#08) ,Y 


358 INY 
359 CPY #5 
360 BNE <é 
361 ;TEST FIN 

362 “? DEC NV 
363 LDA NV 
364 BNE «Ii 
365 BEQ <3 
367 END 


Disque virtuel 64K 


et d'un patch du DOS qui permet 
l'appel du disque virtuel, 


Pour plus de commodité, les deux 
routines sont regroupées dans un 
même code objet AUTO RWAUXI- 
NIT. Après l'exécution de ce pro- 
gramme par BRUN, tout appel au 
second lecteur D2 sera dirigé sur le 
disque virtuel logé dans l'extension 
mémoire de la carte 80 colonnes 
étendue. Le disque ainsi constitué se 
compose de 11 pistes complètes. 
d'une piste de 12 secteurs et d’une 
piste affectée au catalogue et à la 
routine d'exploitation. 


Cette nouvelle version de pseudo- 
disquette n’est pas moins volatile que 
la précédente, bien sûr. Avant 
d'éteindre votre Apple, n'oubliez 
donc pas de transférer les informa- 
tions stockées en RAM sur une véri- 
table disquette dans le lecteur D1. 
Vous pouvez réaliser ce transfeit di- 
rectement à partir de vos program- 
mes, en mode immédiat pour les 
programmes et fichiers binaires, ou. 


Jacques Rey 


de façon générale. au moyen du FID 
classique. 


Si vous possédez deux lecteurs de 
disquettes, vous pouvez reconnecter 
le second en D2 par POKE 48372,0. 
Un POKE 483722 redirigera tout 
appel à D2 sur la carte d'extension. 


Les pistes $11, $12 et $13 se trou- 
vant dans la carte langage, il peut 
être utile de verrouiller les huit der- 
niers secteurs de la piste $13 pour y 
loger une copie du moniteur. ce qui 
permet, par exemple. d'examiner le 
VTOC et le directory avec la 
commande "H” du moniteur étendu. 
Pour ce faire, "bootez” avec une dis- 
quette contenant le fichier INTBASIC 
puis passez en moniteur et tapez. 
CO08B N C68B N D084:00 O0 

Les secteurs $8 à $F de la piste $13 
sont ainsi verrouillés et le moniteur 
ne sera pas écrasé par les informa- 
tions chargées dans le pseudo-dis- 
que. 





: # 
His 


5 * 


5 € 


Fe et Dé je ed bee Pb ed Det Dé 
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ORG $4F00 
$ 
PTR EP2 $2A 
$ 
INIT LOR $CD8R 
LDA $C09B 
LDA #$00 
STA PTR 
29 LDA #$D0 
21 STA PTR+1I 
22 81 LDA #$00 
23 EDY #$00 
24 B2 STA (PTR) ,Y 
Pom'sn° 14 


: x RAUXINIT 
: # J. REY (JUIN 84) 


5% {D'APRES M.hRAAG) 


D DE JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D 


K x OX = XX X 


5 2626 DE DE DE DE DE DE 6 JE ME JE DE EE EE DE DE DE DE DE DE DE DE DE DE HE 


LISA 1.5 


3VALIDATIGN OU ER BANC 


3MISE À 2ERS DU VTOC ET DÙ DIR 
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25 DEY 


;INIT DES OCTETS $0 À $37 DU VTOC 


3INHIBE LES SECTEURS 0,1,4,5 DE LA PISTE $04 


;LIBERATION DES PISTES #5,8,9,A,B,C,0,E,F,12 ET13 
3PAR MISE À $FF DES OCTETS CORRESPONDANTS 


3INITIALISATION DES OCTETS DE 
3CHAINAGE DES PAGES DU DIRECTORY 


3 
79 5CHARGEMENT DE LA ROUTINE RUWAUX À LA PLACE DU SECTEUR $F DU DIR 
; 


26 BNE 82 
27 INC PTR+i 
28 LDA PTR+t 
29 CMP #$E0 
30 BNE BI 
34 ; 
32 3INITIALISATION DU UTOC 
334 
34 LDA ##$D0 
35 STA PTR+1 
36 LDY #$06 
” 37 B3 LDA VTEL1,Y 
M 38 STA CPTR),Y 
"es 39 DEY 
= 40 8PL 83 
… 4: LDA #$7A 
… 42 STA $D027 
7 43 LDA #$0D 
35 44 STA $D030 
# 45 LDA ##23 
dé STA $D034 
& 47 LDA ##10 
H «48 STA $D035 
” 49 LDA #$01 
50 STA $D037 
51 LDA H$CC 
52 STA $D049 
53 ; 
54 LDA #$FF 
55 LDX #17 
56 Bà LDY UVTBL2,X 
57 STA (PTR),Y 
58 DEX 5DU UTOC 
59 8PL 84 
60 ; 
61 LDA #$D2 
62 STA PTR+#1 
63 LDY ##01 
64 85 LDA #$11 
65 STA CPTR),Y 
66 INC PTR+1 
67 LDA PTR+1 
68 CMP 88DF 
69 BNE BS 
70 DEC PTR+1 
71 LDY #$02 
72 LDX #$0D 
73 86 TXA 
74 STA (PTR),Y 
75 DEC PTR+1 
76 DEX 
77 BNE 86 
78 
80 
81 LDA #$DF 
82 STA PTR+I 
83 LDY ##00 
84 87 LDA $5000,Y 
85 STA (PTR),Y 
86 DEY 
87 BNE 87 
88 ; 
89 ;DECONNECTION DE LA CARTE LANGAGE 
70 ; 
91 CLC 
92 LDA $C082 
93 LDA $CO8A 
94 ; 
95 ;MISE EN PLACE DU PATCH PERMETTANT L'‘APPEL DE RHAUX 
F6 ; 
ANNEES 
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97 LDY ##$18 


98 BB LDA PATB,Y 
99 STA $8CEB,Y 
100 DEY 

101 BPL BB 

102 RTS 

103 ; 

104 ;TABLES 

105 ; 


, 
106 UTBLI HEX 04110E030000FE 
107 UTBL2 HEX 31484C4D58595C5Dé0é6164656B8696CéD707174758081 8485EA 
108 PATB HEX 8448854940028148C902D00DADB8B8C0AD88C04C6éEDF4CEBBCER 
109 END 





AUTO RWAUXINIT.OBJ 


4F00- AD 88 Co AD 88 CC A9 00 
4F08- 85 2ÂA A9 DO 85 2B A9 00 
4F10- A0 00 9t 24 88 DO F8 Eé 


4F18- 2B AS 28 C9 EO D0 EF A9 
5 DE 26 EE XX 6 2€ 6 JE 2€ JE DE DE XE DE DE JE JE DE DE DE DE DE DE DE 4F20- DO 85 28 A0 06 89 98 4F 


1 
2 ;% % 4F28- 91 2A 88 10 F8 A9 7A 8D 
3 ;x RUAUX # 4F30- 27 DO A9 O0D 88 30 DO A9 
4 ;% # 4F38- 23 8D 34 DO A9 10 8D 35 
5 j*  JACQUES REY (JUIN 84) +* 4F40- DO A9 01 8D 37 DO A9 CC 
ds “i 4F48- 8D 49 DO A9 FF A2 17 8C 

y 4F50- 9F 4F 91 24 CA 10 A9 
7 i* ADAPTATION DE L'IDEE DE * 4F58- D2 85 2B A0 01 A9 “ 91 
B ;% M. HAAG # 4Fé0- 24 Eé 28 A5 28 C9 DF DO 
9 j;% Li 4F68- F4 Cé 28 AD 02 A2 OD 8A 

10 5 M 2 JE 26 JE DE JE 6 JE DE JE DE JE DE DE 36 6 36 2€ 36 26 JE 2€ 36 2€ JE € 4F70- 91 2A Cé 2B CA PO F8 A9 
11 ; 4F78- DF 85 28 A0 00 89 00 50 
12 ORG $DFé7 4F80- 91 24 88 DO F8 18 AD 82 

13 O0BJ $50467 4F88- CG AD BA CO A0 18 B9 88 
i4 ; 4F90- 4F 99 E8 BC 88 10 F7 60 
15 ;EMULATEUR DE DISQUETTE SUR CARTE AUXILIAIRE es 7. Ps “ es se de me 

16 ; 4FAB- 61 64 65 68 69 6C 6D 70 
17 IOBP  EPZ $4B 4FBO- 71 74 75 80 81 84 85 EA 

18 PTR EP2Z +52 4FB8- 84 48 85 49 A0 02 Bi 48 

19 BUFPTR EP2 $3E 4FCO- C9 02 DO 0D AD 8B CO AD 

20 SECT  EPZ #20 AFC8- 8B CO 4C 6E DF 4C E8 8C 

21 TRACK EPZ $2E 4FDO- En EA EA EA EA EA EA EA 

22: 4FD8- En EA EA EA EA EA EA En 

23 TRK EQU $4 4FE0- EAÀ EÀ EÂ EA EAÀ EÀ EA EAÀ 

24 SEC EQU #5 aFE8- EA EA EA EA EA EA EñA EA 

CAGE EU £ à aFF0- EA EA EA EA EA En EA EA 

4aFF8- EA EA En EA EA EA EA EA 

26 CMD EQU $0C 5000- 00 D2 CF D5 D4 C9 CE C5 

27 DRU EAU #02 5008- A0 A0 D2 D? Ci D5 DB 00 

28 ; 5010- A0 A0 A0 A0 A0 A0 A0 A0 

29 TBI HEX 1087846 ;PISTES INTERDITES 5018- AO A0 A0 A0 A0 A0 AD A0 

30 T82 HEX 00010405 3SECTEURS INTERDITS 5020- 00 CD AE C8 C1 C1 C7 A0 

31 ; 5028- AF AO CA AE D2 C5 D9 00 

32 ;TRANSFERT DES FOINTEURS ae su 2 A0 . À A aË a 

33; 

5040- 00 00 00 CA DS C9 CE A0 

34 RUWAUX LDY #BUF 5048- A0 81 89 88 84 00 00 00 

35 LDA (I1G8P),Y 5050- A0 AD A0 A0 A0 A0 A0 A0 

36 STA BUFPTR 5058- A0 A0 A0 A0 A0 A0 AD A0 

37 INY 5060- 00 00 00 00 00 00 00 10 

38 LDA CIOBP),Y 5068- 07 06 00 01 04 05 A0 08 

39 STA BUFPTR+1 5070- Bi 48 85 3E C8 Bf 48 85 

1e ASE DOS dat tend 0 

Re Pn 5088- 4F C9 11 FO 2C C9 04 30 

à à 5090- 47 A0 02 D9 67 OF FO 40 
3 LDY #TRK 5098- 88 10 F8 A9 00 85 2A AS 

an LRA CIOBP),Y 50A0- 2E 38 E9 04 OA 0A OA 0A 

45 STA TRACK 50A8- 65 2D 85 2B A0 03 D9 A 

46 ; 5080- DF FO 25 88 10 F8 4C C8 

47 ;DETERMINATI@N DES PISTES ET SECTEURS 50B8- OF A9 00 85 2A 18 A5 2D 

48 ; 50C0- C9 OF FO 14 69 DO 85 2B 

49 CMP #$14 : PIST & 50C8- AO OC Bi 48 C9 00 FO 09 

50 BPL ERR LERPELR EI RESNERRS 50D0- C9 01 FO 0E C9 02 F0 19 

L A 

51 CMP #$11 ; BRANCHE SUR UTOC OÙ DIR te 

52 BEQ DIR 50E8- 2A 91 3E 88 DO F9 18 90 

53 CMP #$04 3; ERREUR SI PISTE < $04 S0F0-+ E8 AO 00 8C 05 C0 B! 3E 

54 BMI ERR 50F8- 91 2 88 DO F9 18 90 
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; ERREUR SI PISTE = $06,$07 OÙ $10 
; (PAGE GRAPHIQUE ET PORTS) 


; 
; PAGE MEMOIRE= $10#(TRACK-4) 
PLUS SECT 


; ERREUR SI PISTE $04 SECTEURS $0,#%1,#4,8$5 
; (PAGES 0,1 ET TEXTE BOCOL) 


; CALCUL DE LA PAGE DU CATALOGUE 
5 ERREUR SI SECTEUR $%0F 
; CEMPÉACEMENT DE LA ROUTINE) 


; PROVOQUE 1/0 ERROR 


5REMET LES COMMUTATEURS EN POSITION 
;LECT/ECRIT EN MEMOIRE PRINCIPALE 
> COMMUTE LA MEM EN $DFE2 QUI CONTIENT RTS 


5MEM AUX EN LECTURE 


5MEM AUX EN ECRITURE 


" BSAVERWAUX .0BJ,A4$5000 ,L$#100" 


55 LDY ##02 
Sé VERIFI CMP TB1,Y 
07 BEQ ERR 
SB DEY 
59 BPL VERIFI 
60 LDA #$00 
61 STA PTR 
62 LDA TRACK 
63 SEC 
64 SBC #$04 
65 ASL 
66 ASL 
67 ASL 
6B ASL 
F5 89 ADC SECT 
Éi 70 STA PTR+ 
Eh 71 LOY ##$03 
Ë 72 VERIF2 CMP TB2,Y 
73 BEQ ERR 
74 DEY 
75 BPL VERIF2 
76 JMP EX@ 
27 
78 ;3DIRECTORY 
PAR 
BO DIR LDA ##00 
B1 STA PTR 
B2 CLC 
83 LDA SECT 
84 CAP N#SOF 
8s BEQ ERR 
86 ADC ##D0 
87 STA PTR+I 
88 ; 
89 ;EXECUTION DE LA COMMANDE 
90 ; 
91 EXQ LOY #CMD 
92 LDA CIOBP) ,Y 
93 CMP ##00 
94 BEQ RET 
95 CMP ##$01 
96 BEQ READ 
97 CMP #802 
98 BEQ WRITE 
?9 ; 
100 ERR SEC 
101 ;: 
102 RET STA $C002 
103 STA $C004 
104 LODA +$C094A 
105 ; 
106 READ LDY ##00 
107 STY $C003 
10B BR1 LOA CPTR),Y 
109 STA (BUFPTR),Y 
110 DEY 
111 BNE BRI 
112 CLC 
113 BCC RET 
114 ; 
115 WRITE LDY #$00 
116 STY $C005 
117 BWI LDA CBUFPTR) ,Y 
118 STA (PTR) ,Y 
119 DEY 
1 20 BNE Bi 
121 CLC 
122 BCC RET 
1 23 DCH 
124 ENO 
AOSSSERRNNNNR 
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Premier contact 


Conception du logiciel 


Appleworks est un logiciel présenté 
comme ‘intégré’. Il comporte : 


e un traitement de texte, 
d'Applewriter : 

e un gestonnaire de fichier. très 
proche de Quick File ; 

e un tableur, compromis entre Visi- 
calc (ou plutét Magicalc) et Multi- 
plan. 


parent 


Il n'est en fait que partiellement inté- 
gré. En effet : 


1 - Il est possible de ”’couper/coller” 
à l'intérieur d'un document. ou entre 
2 documents DE MEME TYPE {2 ta- 
bleaux par exemple), mais non entre 
documents de types différents (on ne 
peut effectuer de calculs par le ta- 
bleur sur les données d’un fichier, 
sauf, et uniquement au moment 
d'une création de document nou- 
veau, à transiter par un fichier DIF !). 


2 - Il est également possible, mais 
moins direct, de passer d’un tableau 
où d'un état composé à partir d'un 
fichier, vers le traitement de texte (on 
utlise alors une sous-option ‘clip 
board” de l'option d'impression). 


La gestion du ‘clip board” n’est pas 
très simple. Par la pratique, nous 
avons cru comprendre que les ex- 
trait DE MEME NATURE s'entas- 
saient et étaient ensuite repris en 
bloc, alors qu'un extrait d’un autre 
type vidait le clip board. 

Tout a été fait pour faciliter l’appren- 
tissage : nombreuses fonctions ‘‘help” 
à différents niveaux. identité des 
commandes dans les diverses 
composantes, utilisation relativement 
aisée de toutes les commandes de 
l'Apple //e (les 4 flèches de direction 
et les pommes"). 


Le traitement de texte 
Forces 


Option ”couper/coller” puissante et 
commode (mais avec deux modes 
d'utilisation différents selon qu’on 
travaille entre textes, ou bien entre fi- 
chier ou tableau et texte). 

Désignation pratique des zones à 
supprimer, déplacer. dupliquer, ”’cou- 
per/coller”. 

Nombreuses options d'impression. 
très puissantes quand on en a bien 
acquis le mécanisme. Possibilité d’in- 
tervention au clavier en cours d’im- 
pression. 


Faiblesses 


Absence d'une fonction Glossaire. 
Pas de notion de paragraphes (mais 
il existe un système de ‘‘mar- 
queurs”). 

Quelques problèmes de justfication 
(il n'existe pas de justification gauche 
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Appleworks à l’essai 


ou droite, et les options d'impression 
perturbent la just fication totale). 


Synthèse 


S'il ne s'agissait que d’un nouveau 
traitement de texte. il n'y aurait pas 
de quoi déclencher l'enthousiasme. 

Il faut donc voir celui-ci uniquement 
dans le cadre de l'intégration avec ta- 
bleur et gestionnaire de fichier. Alors, 
on ne peut qu'être séduit par le fonc- 
tionnement du “couper/coller” direct 
(entre textes}, ou indirect. par l'inter- 
médiaire de l'option d'impression 
(entre état ou tableau et texte). 


Le gestionnaire de 
fichier 
Forces 


Ce sont essentiellement celles de 
Quick File (simplicité et souplesse, 
travail très commode à l'écran, 
confection aisée d'états et d'étiquet- 
tes...). 

A ces avantages. il convient d'ajouter 
bien entendu la fonction ”cou- 
per/coller” dans un fichier ou entre 
deux fichiers et la fonction impres- 
sion sur ‘clip board” à destination du 
traitement de texte. 


Faiblesses 


Comme les avantages, les inconvé- 
nients sont essentiellement ceux de 
Quick File (insuffisance de contrôles 
d'entrée, quelques difficultés de ma- 
nipulation du curseur. capacité assez 
limitée). 

Attention aux sorties du système” 
dans le cas de certaines options im- 
primante non admises. 


Synthèse 


Plus encore que dans le cas du trai- 
tement de texte, on pourrait être 
tenté de dire que ce nouveau ges- 
tionnaire de fichiers est un de trop: 
Quick File suffisait. 

Bien entendu, c'est encore dans l’in- 
tégration (entre fichiers. et avec le 
traitement de texte) qu'il faut en re- 
chercher la justification. 

On peut alors regretter qu’il n'y ait 
pas une communication directe pos- 
sible avec le logiciel tableur pour ef- 
fectuer facilement des calculs à partir 
d'éléments puisés dans un fichier et 
retourner les résultats vers le fichier. 


Le tableur 


Forces 


Maniement commode de groupes de 
rangées, colonnes ou cases. 


Guy Lapautre 


Possibilité de faire apparaître et d’im- 
primer le tableau des formules de 
calcul, de trier en ordre alphanuméri- 
que ou numérique dans une co- 
lonne, de rechercher une case par 
son contenu (alphabétique). 

Et bien entendu, fonctions ‘’cou- 
per/coller” et impression sur "clip 
board”, ainsi que possibilité d'utiliser 
un format DIF (en entrée et en sor- 
tie). 


Faiblesses 


Pas de ligne de rappel des comman- 
des disponibles (il faut passer par 
help”) et pas de help” pour les 
fonctions de calcul. 

Dans la duplication des formules, 
no change” en option par défaut 
(chacun sait qu'on utilise beaucoup 
plus souvent relative”). 

Pas de fonction de consolidation de 
plusieurs tableaux. 


Synthèse 


Un nouveau tableur, qui a pris beau- 
coup des fonctionnalités apparues 
progressivement dans ce domaine 
depuis l'ancêtre” Visicalc. Îl est tou- 
tefois fort regrettable que les auteurs 
n'aient pas cru devoir V adjoindre 
une fonction de consolidation. 

Par ailleurs, mêmes observations que 
pour le gestionnaire de fichiers en ce 
qui concerne l'aspect d'intégration. 


En resumé 


Appleworks est probablement proche 
de ce qu’on peut faire de mieux en 
matière de logiciel intégré, compte 
tenu de la capacité et des performan- 
ces de l'Apple //e, même si quelques 
détails irritent. 

Ë serait intéressant de le comparer de 
façon détaillée à Jane, autre logiciel 
intégré pour la même machine, fonc- 
tionnant selon le principe, cher à 
Apple, de la souris graphique exploi- 
tant un jeu d'icônes. Jane possède 
en outre une gestion multifenêtres. 


Forces 


Avant tout, d’honnêtes possibilités 
d'intégration entre trois logiciels : 
passage très simple entre des tâches 
de même type, assez simple entre ta- 
bleur ou gestionnaire de fichiers et 
traitement de texte, un peu plus 
compliqué et moins complet entre 
gestionnaire de fichiers et tableur. 
Fonctions communes (gestion de dis- 
que et de fichiers, hard copy, 
"help, }) pratiques et efficaces. 
Très bonne standardisation des 
commandes des diverses composan- 
tes. 
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S'agissant de chacun des logiciels : 


Traitement de texte assez classique, 
avec de bonnes facilités pour dési- 
gner des zones de travail et de nom- 
breuses options d'impression. 


Gestionnaire de fichiers presque 
identique à Quick File, simple d’em- 
ploi, souple et efficace. avec confec- 
tion d'états aisée. 

Tableur proposant une bonne syn- 
thèse des réalisations dans ce do- 
maine, avec une gestion commode 
par groupes de lignes. colonnes ou 
cases. 


Faiblesses 


On peut regretter (mais l'Apple //e 
est ce quil est}. qu'il n'y ait pas une 


option ”couper/coller” généralisée 
entre les trois logiciels qui composent 
Appleworks. On peut également re- 
gretter qu'il n’y ait pas un quatrième 
logiciel, un éditeur graphique. Notons 
toutefois que le format DIF permet 
théoriquement d'utiliser Visicaic. Mais 
dernier fonctionne sous DOS 
3:36 

Nous avons connu à plusieurs repri- 
ses des problèmes de sortie irrémé- 
diable du logiciel, avec perte du der- 
nier travail exécuté, lors de lutili- 
sation de certaines options d'impres- 
sion. 


Pour chacun des logiciels pris indivi- 
duellement . 


Traitement de texte dans lequel on 
aurait aimé retrouver le glossaire 


d'Applewriter. La justification des 
textes est traitée de façon un peu 
sommaire. 


Gestionnaire de fichiers un peu limité 
(comme Quick File) dans la structure 
des enregistrements, et sans contrôle 
d'entrées. 

Tableur auquel manque essentielle- 
ment la fonction de consolidation 
entre divers tableaux De ce côté, 
pas de progrès par rapport à Visicalc. 


En synthèse 


Une note BIEN. mais il manque rela- 
tivement peu de choses pour en faire 
une note TRES BIEN 





Jane : la sauce Macintosh 


Jean-Michel Gourévitch 


Un traitement de texte, un tableur et 
une base de données réunis dans le 
même programme. sur la même dis- 
quette, avec des ponts permettant de 
passer d'une application à l'autre. 
Une des premières applications de la 
“souris”, utilisable sur Apple IL 11+, 
lle et /{c, voici Jane. un logiciel à la 
présentation géniale, mais dont le ra- 
mage n'égale pas tout à fait. hélas. le 
plumage. Il a été écrit par deux petits 
génies de 21 ans dont l'un. Howard 
Marks fit ses études secondaires chez 
nous, au Lycée Janson de Sailly de 
Paris. Ce détail n’est pas inutile : il 
explique pourquoi ce programme dé- 
veloppé aux Etats Unis (la société 
distributrice a été créée avec les 
fonds d'une société d'exploitation de 
casinos) est aussi parfaitement fran- 
cisé. 

Ce n'est pas la moindre des qualités 
d'un logiciel parfaitement ‘bluffant”. 
D'abord un mot sur son aspect phy- 
sique. Avouons-le tout de suite, cette 
Jane-là est diablement séduisante. 
Après une démonstration bien 
menée, il est difficile de ne pas cra- 
quer pour la belle. 

Le manuel représenterait ce qu'on 
peut attendre de mieux d'un manuel 
(clair. illustré d'exemples et de des- 
sins) s'il n'était parfaitement inutile. 
Jane est en effet livré en quatre dis- 
quettes. L'une est une auto-démons- 
tration parfaitement menée et qui 
donne envie de prendre de suite la 
souris en main. La seconde (de cou- 
leur grise) est la disquette système. 
Le coeur du logiciel. La troisième 
(noire) est une disquette de données, 
qui contient aussi des exemples et 
des utilitaires. La dernière (jaune) est 
la disquette d'aide. À chaque fois 
qu'il en est besoin, le programme de- 
mande d'insérer la disquette néces- 
saire dans le second drive en la dési- 
gnant par sa couleur (avis aux 
pirates). Si ce n'est pas la bonne. il 
insiste. 


Mais, c'est une fois la disquette sys- 
tème dans le lecteur et l'Apple sous 
tension que le feu d'artifice 
commence. Jane utilise icônes et 
souris comme Macintosh: à propos 
de souris, un détail important: la 
dernière version de Jane fonctionne 
avec la souris d'Apple, et même, 
pour ceux qui en sont encore dému- 
nis -les possesseurs d'Apple Il. I+ et 
le apprécieront. avec un simple 
joystick (il faut alors reconfigurer la 
disquette grise). Les icônes, confor- 
mes à ce nouveau langage dont raf- 
folent les habitués des aéroports in- 
ternationaux. sont plutôt bien 
réussies et diffèrent selon les applica- 
tions (celles de la base de données 
sont les moins claires) On trouve, 
comme dans le Mac. une poubelle 
pour la destruction de fichiers Et. 
comme avec le Lisa, une petite mon- 
tre vous fait patienter lors des accês 
du logiciel à la disquette. 


Le premier problème c'est. hélas. 
que cette montre est bien nécessaire. 
Les accès disquettes sont fréquents et 
lents. Une fois qu’on désigne un dos- 
sier à ouvrir en cliquant la souris. il 
faut par exemple une bonne dizaine 
de secondes avant d'y avoir accès. 
C'est le prix à payer pour voir s’affi- 
cher sur le moniteur d'un Apple la 
réplique de l'écran de Mac tout en 
vert (ou presque). À partir de là. on 
déplace sa fenêtre sur l'écran. on 
ouvre de nouveaux dossiers ou de 
nouvelles applications (on peut en- 
tasser jusqu à quatre dosssiers sur le 
bureau”). On peut trimbaler un élé- 
ment d'une application vers une 
autre, insérer par exemple une liste 
de chiffres du tableur dans le traite- 
ment de texte (grâce aux icênes ci- 
seaux'’. caméra et pot de colle '} 
plus facilement. il faut le reconnaître. 
que dans Appleworks. l'autre pro- 
gramme ‘intégré vendu. quant à 
lui, par Apple. On l'aura compris. 


tous ceux qui ne se sont jamais servis 
d'un tableur, d'un gestionnaire de fi- 
chiers ou d'un traitement de textes 
(beaucoup de nouveaux possesseurs 
d'Apple //c se reconnaîtront dans ce 
portrait) seront à la fête Avec toute- 
fois une nuance. la fréquence des 
accès disquette nécessite plus que 
pour tout autre logiciel un second 
drive, 


Pour les autres, les vétérans d’Ap- 
plewriter, les Muitiplanistes (-pla- 
neurs ?) chevronnés et les CX-Muiti- 
gestionnaires confirmés. Jane relè- 
vera plus du jeu de société que de 
l'outil de travail. Résumons en vrac : 
un traitement de texte ne pouvant af- 
ficher (à condition d'avoir choisi les 
plus petits caractères écran) que 78 
colonnes. “l'oubli” d'un glossaire. et 
un choix de codes d'impression étri- 
qué: un gestionnaire de fichiers dont 
les rubriques sont limitées à 25 ca- 
ractères et le total des informations 
par saisie (rubriques comprises) à 
250 caractères un tableur qui ne 
permet guère que de calculer un 
budget familial. sans pouvoir bien sûr 
lier des feuilles entre elles. sans nu- 
mérotation des colonnes et avec un 
choix d'opérations ‘riquiqui… 


Pas besoin d'épiloguer. les créateurs 
de Jane le reconnaissent eux-mêmes. 
leur programme ne vise pas les 
“pros. Ceux qui passeraient outre 
risquent la déception, et accuseront 
ce programme ‘bluffant de tricherie. 
Ils n'auront pas tout à fait raison. Car 
le mérite de Jane. cest d'ouvrir ce 
bon vieil Apple Il aux techniques 
“d'avant-garde” de l'intégration. des 
souris et des fenêtres En fait de fe- 
nêtre. celle qu'ouvre Jane sur l'ave- 
nir est un apéritif tentateur On se 
prend à rêver d'un logiciel de même 
principe tournant sur un Apple Il 
muni dun nouveau processeur 16 
bits (le 65816. par exemple. sur le- 
quel travaille Steve Wozniak : voir la 
rubrique Micro-informations) et d'une 
mémoire portée à 512 K. Il n'aurait 
guère à envier à Lotus 1-2-3 ‘le ma- 
gnifique Et si cétait pour demain 7? 
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L'Applesoft est pauvre, c'est en- 
tendu, mais si l’on en juge par toutes 
les greffes qui lui ont déjà été faites 
par le biais de lampersand (&), il 
semble bien que, finalement, on ne 
prête pas qu'aux riches. 


ICARE est 
assez complet, 


un amper-interpréteur 
dont l'idée m'a été 
inspirée par le programme Print 
Using  & Friend” de CALL 
APPLE. et par le fameux ”Haifa” 
publié dans Pom's numéro 5 

J'ai ainsi voulu réunir dans un seul et 
même programme de nombreuses 
routines, dont certaines ont été em- 
pruntées à l’artide de CALE 
APPLE. déjà mentionné, d’autres 
à Pom's, ou que j'avais développées 
pour mes propres besoins. On dis- 
pose de cette façon de muitipies ins- 
tructions nouvelles en Applesoft, en 
même temps et avec un point d’en- 
trée unique. Il n’est donc plus néces- 
saire de se préoccuper des problè- 
mes de compatibilité entre les 
différentes routines, ni de jongler 
avec les disquettes et les fichiers pour 
charger en mémoire celles dont on a 
besoin. 


Nous examinerons d'abord les diffé- 
rentes instructions disponibles et leur 
syntaxe, avant de voir comment met- 
tre en oeuvre ICARE. 


Les instructions 
d'ICARE 
PRINT USNG > 


& PRINT USNG > chaîne;exp 
(exp désigne une expression numéii- 
que) 


Exemple : 
SiA = 1234.56. 
& PRINT USNG >" -00”;A 


donne 1234.56 
& PRINT USNG >’000000.00” À 
donne 001234.56 


& PRINT USNG >” .06”:A 
donne 1234.56 
& PRINT USNG >'$ 6G”:A 


donne $1234.56 
& PRINT USNG >'Totad = 


$.00”: A donne. Total = 
$l. 234.56 
Si A = 9506789, 


& PRINT USNG >’Martin: - - 
”: À donne : Martin. 950-67-89 


Auteur: Craig Peterson - CALL 
APPLE. 

NOISE 

& NOISE expl,exp2 


Produit un son dont la durée et la 
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Amper-interpréteur ICARE 


hauteur sont données par expl et 
exp2, l’une et l'autre devant étre 
comprises entre O et 255. 


Auteur: Craig Peterson - 
APPLE. 
WAIT 


& WAÏT exp 

Attend ’’exp” dixièmes de seconde. 
Auteur: Craig Peterson CALL 
A.P.PL.E. 

SWAP > 


& SWAP > variablel,variable2 


Echange les contenus des variables 
variablel” et ’’variable2”, qui doi- 
vent être de même type. Par exem- 
ple : & SWAP > A$B$ 


Auteur: Craig Peterson 
A.P.P.LE. 


GOTO calculé 
& GOTO exp 


CALL 


CALL 





Exécute un GOTO à la ligne dont le 
numéro est donné par le calcul de 
exp’. Par exemple, si A=100, & 
GOTO A/2 est équivalent à GOTO 
50 (voir INTEGER BASIC). 


GOSUB calculé 


& GOSUB exp 


Exécute un GOSUB selon les mêmes 
règles que pour le GOTO calculé 
{voir INTEGER BASIC). 


DEL ARRAY > 


& DEL ARRAY > nom de tableau 


Efface en mémoire le tableau dont le 
nom est précisé dans l'instruction 
(par exemple, & DEL ARRAY >A$ 
détruit le tableau A$). Le tableau 
peut être de n'importe quel type, 
mais il doit absolument exister. 


Auteur: Craig Peterson - CALL 
PL 


Pascal Cantot 


BELL 


& BELL exp 


Produit un son de cloche dont la 
durée est donnée par la valeur de 
exp’, qui doit être comprise entre O 
et 255. 


RPT PRINT 


& RPT PRINT chaîne,exp 


Affiche ”’exp” fois la chaîne (la valeur 
de exp doit être comprise entre O et 
255) 


PLAY 


& PLAY expl,exp2 

Joue une note de hauteur ”’expl” et 
de durée ”’exp?2”. Il est possible de 
donner plusieurs notes, mais if faut 
alors séparer les couples note/durée 
par des ”;”. Par exemple : 
SPÉAY 219206 172:0" 4152 0:5 
144,0 ; 128,0 ; 115,0 ; 102,0 : 96,0 
joue l’octave 1. 

Pour les octaves plus aiguës, il suffit 
de diviser par 2 à chaque octave, et 
pour obtenir les dièses, il faut faire la 
moyenne des deux notes adjacentes. 


REG 


& REG 
Affiche le contenu des registres du 
2. 


BKGND 


& BKGNDexp 


Met tous les octe# de la page HGR 
courante à ‘exp’. Par exemple, & 
BKGND255 blanchit la page cou- 
rante (page 1 par défaut). 


HINV 


& HINV 


inverse la page HGR courante (page 
1 par défaut). 


SYS 
& SYS 


Passage en mode moniteur {équiva- 
lent à CALL —-151). 


MOVE 


& MOVE expl.exp2 TO exp3 


Fait exécuter la commande MOVE 
du moniteur et déplace à ladresse 
’exp3” la zone de mémoire comprise 
entre les adresses ”’expl” et ”exp2”. 


Accès direct à la disquette 


& BUFFER = exp 


Sélectionne la page du buffer qui 
sera utilisé par RWTS dans les 
commandes de lecture / écriture. Par 


ÉAUHUESNENINERN 


EL 
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exemple, avec & BUFFER = 32, le 
buffer commence en 32 * 256 = 
8192. La valeur par défaut est $96, 
soit le premier buffer du DOS avec 
MAXFILES 3 


& READ P,S 


Lit le secteur S de la piste P dans le 
buffer. Le lecteur utilisé est le dernier 
lecteur sélectionné par une com- 
mande DOS, 


& WRITE P,S 


Recopie le contenu du buffer sur le 
secteur S de la piste P. Même remar- 
que que ci-dessus en ce qu 
concerne le lecteur utilisé. 


RESTORE 


& RESTORE exp 


Ajuste le pointeur de DATA au début 
de la ligne dont le numéro est donné 
par ‘exp’. Un message d'erreur est 
envoyé si la ligne n'existe pas ou ne 
contient pas de DATA. 


SUPER PRINT 


ICARE réserve une place pour l'im- 
plantation de la routine de SUPER 
PRINT de Denis Sureau publiée dans 
le Pom's 9. Vous trouverez dans la 
deuxième partie de l'article la procé- 
dure à suivre pour jeindre cette rou- 
tine aux autres. 

Si elle est implantée, la syntaxe de 
l'instruction est : 


& SUPER PRINT:A$.X.Y +Z,chaîne 
PRINT AT 


& PRINT chaîne AT H.V 


Affiche le contenu de la chaîne à la 
colonne H de la ligne V (H de 1 à 
40 et V de : à 24). Cette instruction 
ne modifie pas la position du cur- 
seur. 


GET 


& GET X 


Remet le clavier à zéro, attend 
qu'une touche soit pressée et met 
son code (inférieur à 128 — bit 7 à O) 
dans X. Peut être utilisé en mode di- 
rect. 


TORTUE 


ICARE réserve également la possibi- 
lité d'implanter la Tortue de Jacques 
Duma publiée dans le Pom's 6 {voir 
seconde parte pour le mode opéra- 
toire). 

La syntaxe de cette commande est 
alors : 


& DO ! instruction ] 


Pour la description des instructions 
de la Tortue. se reporter au Poms 6 
ou au Recueil 2. 


Touches de fonction 


& XFUNCT 
Initialise le pregramme de touches de 


fonction qui dévie la routine d'entrée 
de caractères. Pour obtenir ensuite 
les fonctions, il faut appuyer simulta- 
nément sur ‘Pomme Ouverte” 
(Apple //e ou //c) ou sur un bouton 
de manette de jeu (Apple Il+), et sur 
la touche concernée. 

En cas de Reset, le programme est 
déconnecté. Chaque touche ”’pom- 
mée” est accompagnée d'un ”’bip”. 
Attention, l'instruction & XFUNCT 
déconnecte la routine HCURSOR 
qui permet d’avoir un curseur visible 
en HGR (voir plus loin). 


Les touches de fonction disponibles 
sont les suivantes : 


e S'il s'agit d'un chiffre n, le pro- 
gramme va adresser le commuta- 
teur d'affichage situé à l'adresse 
$CO050 + n. 

e CTRL: : envoie 8 espaces. 

e #: envoie N ED24G "RETURN" 
(conversion hexadécimal / déci- 
mal). 

e %: fait afficher la valeur de 

LOMEM. 

fait afficher la valeur de 

HIMEM. 

+. fait entrer en mode moniteur. 

/: exécute TEXT:HOME ’7RE- 

TURN". 

= : affiche COLOR = 

C : envoie CATALOG 

G : envoie GR 

I : fait afficher INPUT 

L : fait afficher LOAD 

N : fait afficher NEXT 

R : fait afficher RUN 

T : fait afficher & DOI 

W : fait afficher & WAIT 

Z : fait afficher &CIRCLE = 

]: fait afficher &NOISE 

Del : recule le curseur en effaçant 

le caractère précédent. 

l: exécute TEXT:NORMAL 

$ : fait afficher CHRS( 

.: affiche HPLOT 

< : affiche PEEK( 

> : affiche POKE 

B : affiche BRUN 

E : affiche HOME : POKE 33.28 : 

LIST 

e H: envoie HGR 

e K: affiche POKE —-16368.0 : 

e M: affiche MID$( 

e P: affiche PRINT 

e S: affiche SAVE 

eÙ 

e X 

e Ë È 


L 


: affiche & PRINT USNG > 
: affiche & XCIRCLE = 
affiche & PLAY 


CIRCLE 


& CIRCLE = X.YR 


Trace un cercle de rayon R et de 
centre de coordonnées X et Y. Les 
points en dehors de l'écran sont 
ignorés. La valeur de R doit être ab- 
solument positive. 


Auteur : Dominique Bernardi - Poms 
12. 


SgUAGENHENE 
DEL TERRES 
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XCIRCLE 


& XCIRCLE = X.Y.R 


Comme précédemment, maïs le cer- 
cle est rempli avec la couleur cou- 
rante. Le tracé de point en dehors 
de l'écran donne un résuitat bizarre. 


Hard-Copy 


& HARDCOPY 


Recopie l'écran texte sur imprimante. 
Les caractères en INVERSE et 
FIASH sont recodés. La routine ne 
fonctionne toutefois correctement 
que sur une Epson équipée d'une in- 
terface Epson. 


PLOT AT 


& PLOT exp AT X,Y 


Envoie sur l'écran texte le caractère 
dont le code-écran est donné par 
exp”, et ce à la position X-Y (X de 
0 à 39 et Y de O à 23). 


HGR PRINT 


& HGR PRINT 


Connecte la routine de sortie de ca- 
ractères HGR qui permet d'écrire en 
page HGR avec des caractères gra- 
phiques comme on écrit en page 
TEXT. Il faut utiliser une table de 96 
caractères graphiques (une table de 
Haifa, par exemple) dont l'adresse 
de début doit être placée en 206-207 
(ce qui permet de piacer ia table elle- 
même n'importe où en RAM). 

La table étant chargée, il suffit de 
faire HGR ou HGR2Z après & HGR 
PRINT pour écrire en graphique. 
sans perdre pour autant "le contact” 
avec le moniteur et l'Applesoft : les 
commandes sont toujours interpré- 
tées et vous pouvez. si vous le dési- 
rez, programmer en Gothique ou en 
Hébreu... 


NORMAL PRINT 


& NORMAL PRINT 
Déconnecte HGR PRINT. 


TYPE 


& TYPE exp 


Définit la façon dont les octets sont 
envoyés vers la page graphique. Si 
on désigne par T un octet de la table 
de caractères et par E l'octet de 
l'écran qui se treuve à la position où 
l'on va écrire T. les différentes va- 
leurs possibles pour “exp” corres- 
pondent à : 

0 : affiche T 

1 : affiche T ORA E (DRAW) 

2 : affiche T AND E 

3 : affiche T EOR E (XDRAW) 

4 : laisse E (pas d'affichage) 


SCROLL 


& SCROLL expl.exp2 


Scrolling HGR dans les limites de la 
fenètre. “expl’' détermine la direc- 
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tion et ”’exp2” le code des octets qui 
vont combler le vide. Les valeurs 
possibles pour “exp 1” sont : 

1 : gauche 

2 : droite 

3 : bas 

4 : haut 


HOME 


& HOME 


Efface la page HGR courante dans 
les limites de la fenètre et positionne 
le curseur en haut à gauche. 


Définition de caractères 
graphiques 


& DEF CHRS$ {X) # expl. exp2 … 
exp8 

Redéfinit le caractère dont le code 
ASCII est X (65 pour A", par exem- 
ple) avec, dans l'ordre, les valeurs 
expl” … ”exp8". Il est possible de 
donner moins de 8 valeurs (le carac- 
tère ne sera alors pas entièrement 
défini) ou plus de 8 (les caractères 
suivants dans la table seront alors 
également modifiés). 

Cette commande est à utiliser dans le 
mode HGR PRINT et les nouveaux 
caractères seront directement implan- 
tés dans la table courante. 


USER 


& USER 


Exécute un ‘“JMP $300” (CALL 
768) et permet à l'utilisateur ne pos- 
sédant pas d’assembleur d’ajouter 
des commandes à ICARE en implan- 


tant directement un code objet à par- 
tir de l'adresse $308. 


POKE 


& POKE adresse.exp 


Permet de POKEr une adresse sur 
deux octets. Par exemple, & POKE 
206,16384 met en 206-207 l'adresse 
de début d'une table de caractères 
graphiques située en $4808 (16384 
en décimal). 


PEEK 


& PEEK 


Revectorise la fonction USR vers une 
routine permettant de lire un PEEK 
sur deux octets Par exemple. 
“PRINT USR(206)" après initialisa- 
tion par & PEEK permet de connaï- 
tre l'adresse de la table de caractères 
graphiques courante. 


Utilisation de la routine 
S.HLAM 


& EXEC * ‘commande moniteur” 


Permet de faire exécuter des instruc- 
tions moniteur à partir de l'Applesoft, 
et par le biais de la routine 
SHLAM, plus facilement que par 
lecture de DATA. suivie de POKESs et 
d'un CALL —-144. 

Par exemple, & EXEC *x"388<8000. 


Pom's n° i4 


8040M" provoquera un MOVE de la 
portion de mémoire comprise entre 
les adresses $8000 et $8640 à 
l'adresse $300. 


Utilisation de ICARE 


Pour initialiser ICARE, il suffit de 
faire un BRUN du code objet, ou de 
charger ce dernier en mémoire et de 
faire ’CALL 32768”. Après initialisa- 
tion du vecteur ampersand et de 
divers registres, la main vous est ren- 
due au niveau de lApplesoft en 
mode direct. ICARE se charge à par- 
tir de l'adresse $8008 et place lui- 
même le HIMEM en dessous de cette 
valeur. 


Compte tenu de ses dimensions, il 
n'est pas possible de lister dans la 
revue l'intégralité du programme 
source (réalisé en assembleur BiG 
MAC - MERLIN, version 64K). 

Vous trouverez toutefois ci-après la 
liste de deux routnes importantes 
dont je pense pouvoir affirmer le ca- 
ractère original. HGR PRINT et la 
routine de touches de fonction. Sur 
la disquette de ce numéro de Pom. 
ces deux routines se trouvent dans le 
fichier source ICARE IL. 

Le tronc-commun de l'assemblage, 
qui contient la définition des étiquet- 
tes générales et appelle les deux 
autres parties du source, est égale- 
ment listé. Il se nomme ICARE 3.15S 
sur la disquette. 


En ce qui concerne te code-objet, 
l'ensemble de la récapitulation vous 
est donnée, à l'exception des routi- 
nes déjà publiées dans Pom's 
(SUPER PRINT de Denis Sureau et 
TORTUE de Jacques Dumal. 
Comme il se divise en plusieurs 
blocs. quelques précisions peuvent 
être utiles à sa bonne exploitation. si 
vous souhaitez le rentrer en machine 
à la main: 

e De 58008 à 58645: code à re- 

prendre tel quel. 
e Le ‘trou” entre $8646 et $86FC 


est réservé à l'implantation éven- 
tuelle du code de la routine de 
SUPER PRINT 

De $86FD à $886D : code à re- 
prendre tel quel. 

Le trou entre $886E et $8C74 est 
réservé à l'implantation du code 
de la TORTUE. Une partie de ce 
code doit toutefois être obligatoire- 
ment entrée en machine car elle 
est utilisée par d’autres instuctions 
de ICARE. Le code correspondant 
est à placer aux adresses $8AD1 à 
8AE3. Ces adresses sont identi- 
ques à celles qu'occuperait la rou- 
tine concernée si l'ensemble du 
code de la TORTUE était implanté 
dans ICARE. 





e De $8C75 à $90D2 : code à re- 
prendre tel quel. 

e Le trou entre $90D3 et $9252 
correspond à une table utilisée par 
ICARE: la valeur initiale des adres- 
ses de cette table n’a pas d'impor- 
tance et vous pouvez donc sauter 
directement à la suite du code. 

e De 59253 à $94F5 : code à re- 
prendre tel quel. 


Implantation de SUPER PRINT 


H suffit de mettre en mémoire à partir 
de l’adresse $8646 les codes corres- 
pondant aux lignes 55 à 181 du pro- 
gramme source publié dans Pom's 9 
(SUPER PRINT est relogeable). 


Implantation de la TORTUE 


Le programme original à été publié 
dans le Pom's 6 et dans le Recueil 2 
Il faut vous y reporter et lui apporter 
les adaptatons suivantes : 


e Remplacer la dernière partie 
"Suite de l'instruction &” par le 
programme ‘Suite instructions” 
listé ci-après. 

Supprimer les lignes 65 à 90 du 
source original 

Mettre “ORG $886E'" et assem- 
bler le nouveau source ainsi cons- 
titué. 
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Le code objet résultant de ces adap- 
tations doit ensuite être placé aux 
adresses $886E à $8C74. 


Les fichiers ICARE sur 

la disquette Pom’s 

Fichiers Source 

— ICARE 3.LS : tronc commun (voir 
listing), appelle ICARE 1 et ICARE Il. 


— ICARE |]: regroupe toutes les rou- 
tines autres que HGR PRINT et les 
touches de fonction Ce fichier 


étiquettes générales définies dans 
ICARE 3.1 lorsque ces noms diffè- 
rent. 

— ICARE Il : reprend HGR PRINT et 
les touches de fonction. 


Pour assembler ICARE avec BIG 
MAC version 64K, les étapes sont les 
suivantes : 


— Ljoad de ICARE 3.1 

— Une fois dans l’éditeur/assembleur, 
tapez ASM et répondez ”’N”’ à la 
question "UPDATE SOURCE ..”. 


TORTUE à ICARE, vous pouvez 
donc, soit remettre directement les 
codes correspondant dans le code 
objet, soit remettre les fichiers sour- 
ces adaptés de ces deux routines 
dans le source de ICARE (voir ci- 
dessus) et ré-assembler le tout. 


Le programme de démonstration 
également listé ici vous donnera une 
vue synthétique de Putilisation de 
ICARE (il doit être lancé après initia- 
lisation du système). Pour lexploiter 
dans là version réduite, vous devrez 


é contient des instructions DS” pour — L'assembleur chargera à partir de supprimer les appels à la Tortue (& 
. réserver la place de SUPER PRINT la disquette les fichiers TEXT ICARE DO!) et à SUPER PRINT. En parti- 
Es et TORTUE lors de l'assemblage. 1 et ICARE Il en fonction de ses be- culier, vous pouvez remplacer la 
Es Vous pouvez bien sûr remplacer cela soins. L'assemblage complet dure 4 ligne 12 par ‘12 HGR2”, enlever 
| par les sources de ces deux routines : à 5 minutes. tous les autres ’& DO[” et rajouter 
Ée lignes 55 à 181 du source original une ligne 280 END”. Le code 
Es pour SUPER PRINT, et à partir de la Fichier Objet POM'SCHARSET correspond au 
_ ligne 91 pour TORTUE (avec toute- contenu d'une table de caractères 
EE fois la modification déjà signalée ICARE 3.1 correspond à l'assem- graphiques utilisée dans le pro- 
£ë pour la dernière partie ”’Suite instruc- blage des trois fichiers source et au gramme de démonstration et que 
5 tions”). code listé dans la revue (les “trous” vous pouvez prendre comme base, 
El Si vous désirez effectivement remet- sont bien sûr occupés, mais ne par exemple, pour définir d'autres 
tre ces deux sources, veillez cepen- contiennent pas de codes significa- caractères par DEF CHR$. 
dant à redonner aux étiquettes utili- tifs) 
sées dans les originaux les noms des Pour rajouter SUPER PRINT et B 
Programme DEMO ICARE 70 & POKE 206,30720: VTAB 12 
72 A$ = “ ICARE - Amper-interpreteur App 
S TEXT : HOME lescoft": GOSUB 500 
8 HIMEM: 30719 75 & TYPE = 3: FOR I = 1 TO 10: VTAB 12 
9 LOMEM: 24577 : HTAB 1: PRINT “HOANDRRRRMMENMMME 
10 D$ = CHRS (4): PRINT BS"BLOADCHARSET BARRE ERMEAMMM" ;: & NOISE 
*A57800": PRINT DS"*BLOADPOM’S.CHA 96,255: NEXT 
RSET ,A$7B00" 77 & TYPE = © 
12 & DO‘I1$: & DO‘I2S 80 A$ = ##x#ræmx Par Pascal CANTOT 
15 & POKE 2084,31488 “‘: GOSUB 500 
17 & HGR PRINT 82 AS = * #x*xxxxmæx PROGRAMME DE DEMON 
18 & TYPE = © STRATION‘“": GOSUB 500 
20 FOR I = 1 TO 12: & PRINT "ICARE 84 & WAIT 20: & NOISEO,0: & HOME : PR 
"*'AT--19;1 INT * Ce court programme va vou 
25 & PLAYI # 10,32 s donner un apercu des possibili 
27 & VWAIT 2 tes d’ICARE..." 
30 & PRINT “ “" AT 15,1: NEXT 86 & WAIT 20 
35 VTAB 13: HTAB 15: PRINT “I CAR E*: 100 POKE 34,0: POKE 35,24: POKE 32,0: P 
PRINT : HCOLOR= 3 OKE 33,40 
37 HPLOT 92,92 TO 172,92 TO 172,108 TO 105 & DO*13S: HCOLOR= 3: VTAB 24: & PO 
92,108 TO 92,92 KE 206,31488: HTAB 12: PRINT ‘“CIR 
38 HPLOT 93,93 TO 171,93 TO 171,107 TO CLE et XCIRCLE" 
93,107 TO 93,93 108 FOR J = 3 TO 4: HCOLOR= J 
40 & DO°P116,100,0;B3$ 110 X = S: FOR I = 3 TO 57 STEP 3: & CIR 
45 & WAIT 10: & HINV: & NOISEO,0: & HI CLE = X,96,1:X = X + I / 3: NEXT 
NV 115 & WAIT 10: NEXT 
46 FOR I = 3 TO 4: HCOLOR= I: FOR J = 4 120 POKE 35,22: & WAIT 10: & HOME 
9 TO 90 STEP 5: & CIRCLE = 132,10 125 I = 50: FOR J = 7 TO O STEP - 1: HC 
O,J: & NOISESO,50: NEXT : NEXT OLOR= J: & XCIRCLE = 140,90,1:I = 
90 & WAIT 5: FOR I = 1 TO 5: & SCROLL4 I # .75: NEXT 
0 127 & WAIT 10 
91 & PLAY64,64 130 & XCIRCLE = 140,90,51: HCOLOR= 3 
92 NEXT 132 & XCIRCLE = 140,90,50: HCOLOR= O0: & 
93 & WAIT 5 XCIRCLE = 155,90,40 
95 & BKGND171: & PRINT “ | 135 POKE 35,24: & WAIT 10 
AT 14,8: & TYPE = 3: FOR 1 = 1 TO 141 & WAIT ï 
8: :&: PRINT"“I CA R'E'"AT-:15,8: 142 & PLAYI28,64;:108,64;:115,64;:115,64;1 
& PLAY32,64: NEXT 28,0 
60 & TYPE = © 150 & DC'I3;:B3$ 
65 POKE 34,10: POKE 35,13: POKE 32,1: P 155 VTAB 24: HTAB 10: PRINT “TORTUE AMP 
OKE 33,38: & HOME ERSAND";: HOME : POKE 35,22 
D 0 2 
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158 
160 


162 
163 
165 


169 
170 


172 


173 
175 


180 


184 
185 


190 


195 
197. 
200 


210 
212 


215 
220 
230 
232 
235 
240 
242 
244 
250 
255 
260 
270 
297 
300 


305 


307 
310 


312 
315 
320 
325 
330 


335 


sh 


J 


z 


FOR K = 35 TO 20 STEP - 15 
FOR I = 1 TO 30: FOR J = 1 TO 6: & 
DO"AK;T60$: NEXT : & DO'T128: NEX 
T 
NEXT 
& MOVE8192,16383 TO 16384 
& WAIT 20:I = FRE (O): FOR I = 1 
TO 31: & HINV: & BELL20: NEXT 
= FRE {O)iT = O 
& WAIT 10: FOR I = 
- 16299,0:T = 


1 TO 700: POKE 
Te STE MEN PORE» 
16300,0:T = T + T «x T: NEXT 
& TYPE = O: VTAB 24: HTAB 10: PRINT 
à SCROLLINGS POKE 23 
0,64: HTAB 10: PRINT SCROLL 
INGS POKE 230,32 
& TYPE = © 
& HINV: FOR I = 1 TO 25: & SCROLL2, 
255: & SCROLL3,255: & PLAY16,16: 
NEXT 
POKE - 16299,0: POKE 230,64: & 
IT 10 
= 20 
FOR I = 1 TO 20: POKE 32,0: POKE 33 
»J: & SCROLL1,0: POKE 32,20: POKE 
33,20: & SCROLL2,0: & PLAY16,i6: 
J = J - l: NEXT 
POKE 32,0: POKE 33,40: POKE 34,0: P 
OKE 35,24: HOME 
& NORMAL PRINT 
VTAB 8 
INVERSE : & RPT PRINT ‘“++#+#+",8: VT 
AB 18: & RPT PRINT ‘“+++++",8: NOR 
HAL : FOR I = 8 TO 17: & PLOT 43 
AT O,1: & PLOT 43 AT 39,1: NEXT 


…,e 
re 


WA 


&  RESTORE 9000 

FOR I = 9 TO 15: READ AS: 
TO LEN {AS): 
»J»1)2} THEN & 
I 

NEXT : NEXT 

POKE - 16300,0: POKE - 16303,0 

FOR I = 1 TO 3: & RESTORE 9100 

& WAIT S 

1 TO 69: READ N,D 

-9: IF D > 255 THEN D = O 

THEN N N »# .75 

THEN N N * 1.25 


FOR J = 1 
IF VAL ( MIDS (AS 
PLOT 32 AT J + 5, 


i TO 40: NEXT 


& HGR PRINT : & POKE 206,30720 
& DO°13S: HCOLOR= 3: HPLOT 0,0 TO 2 
79,0 TO 279,184 TO 0,184 TO O,0 
HPLOT 6,7 TO 273,7 TO 273,177 TO 6, 
177 TO 6,7 
& TYPE = 1: FOR J = 1 TO 2 
FOR I = 1 TO 40: & PRINT 
1: & PRINT "+" AT 1,23: NEXT : F 
OR I = 2 TO 22: & PRINT “+* AT 1 
»15 & PRINT ‘“+" AT 40,1: NEXT 
& WAIT S 
& TYPE = 
NORMAL 
= FRE (O) 
POKE 32,1: 
OKE 35,22 
&  POKE 206,31488: 
R E" AT 15,3: & 


ss AT Ze 


O: INVERSE : NEXT 


POKE 33,38: POKE 34,1: P 


& PRINT “I C A 
POKE 206,30720 
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340 


341 
342 


345 


350 


355 


360 


365 
370 


375 


377 
400 


405 


407 
410 
420 
490 
500 
505 


510 
512 
530 
540 
3000 
3002 
3004 
3006 
3008 
3010 
3012 
9100 


93110 


9120 


9130 


9140 


93150 


9160 


VTAB 4: PRINT : & SUPER PRINT ; 
Ceci n’etait qu’une demonstrativi: 
des possibilites graphiques et* 
PRINT ‘sonores de 
& POKE 206,31488: 

ICARE'": & 
& SUPER PRINT 
coup d’autres, 


& SUPER PRINT :" 
POKE 206,30720 

CE Car il en a beau 
toutes aussi inter 


essantes, en particulier :"* 

& GET X: PRINT ‘“ - PRINT USNG >'': 
PRINT * - GOTO/GOSUB‘": PRINT *“ - 
READ/WRITE/BUFFER": PRINT ‘“* - XEU 
NCT* 

PRINT : & SUPER PRINT :* Ces inst 


ructions etant difficiles a mettr 
e en valeur dans une ’demnoc’.", 

& SUPER PRINT :‘"De memes, l’instruct 
ion DEF CHRS, qui est tres puissa 
nte. Helas, Je n’ai plus le tenrps 

d’en faire une ‘’dero’ valable... 

PRINT : & GET I 

& HOME : & SUPER PRINT ;" En att 
endant, voila un bel utilitaire. 
Et n'oubliez pas: 2 AMPER-INTERPR 
ETEURS VALENT MIEUX QU'’UN!..."* 

PRINT : PRINT : PRINT TAB( 15)‘"Pas 
cal CANTOT‘”: PRINT TAB 20)'"23/0 
6/1384" 

PRINT : & GET I 

PRINT : PRINT : HTAB 12: 8& 
6,31488: PRINT "“VIVE POM’'S ; 

FOR I = 1 TO 20: HTAB 17: PRINT “* 

“3: & PLAY64,32: HTAB 17: PRIN 
T “POM’S";: & PLAY64,32: NEXT 

& POKE 206,30720 

& WAIT 50 

& NORMAL PRINT : 

END 

FOR I = 1 TO LEN (AS): VTAB 12: HT 
AB 37: PRINT MIDS {AS,1,1): & SC 
ROLL1,0: & PLAY11,16: NEXT 

HTAB 36: PRINT “ *:; 

VTAB 12: HTAB 37: PRINT ‘“ ‘: 

X = FRE {0): & WaAIT 10 

RETURN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


POKE 20 


ve. 
! 


TEXT : HOME 


111001110000100011110011111 

01001000100101001000101 

01001000001000101000101 

01001000001000101111001111 

01001000001111101010001 

01001000101000101001001 

DATA 111001110010001010001011111 

DATA 128,32,108,64,96,32,86,48,81, 
16,86,32,96,64,115,32,128,48,136, 
16,128,32,115,64,136,32,172,64 

DATA 128,32,108,64,96,32,86,32,81, 
32,86,32,96,64,115,32,144,48 

DATA 128,16,115,32,108,64,128,32,1 
36,48,152,16,136,32,128,196 

DATA 72,96,72,32,76,16,86,32,96,64 
»115,32,144,48,128,16 

DATA 115,32,96,64,115,32,144,48,12 
8,16,115,32,108,64 

DATA 128,32,128,48,136,16,128,32,1 
15,64,136,32,172,64,72,96,72,48,7 
6,16 

DATA 86,32,96,64,115,32,144,48 ,128 
,16,115,32,108,48,115,16,128,32,1 
36,32,152,32,136,32,128,196 








sut 


HRONNENSRRERANENENSEUNE 


Pem's 


MX % K K K X 


* 
* 
* 


DD DE D DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DD DE DE DE DE DE D DE DE DE DE 

# 

* RE 

* | 1 

# LICARE I 

*# Il l 

# 

* Par Pascal CANTOT 

* Copyright 20/06/1984% 

# 

* Et CALL A.P.P.L.E., 

# 

DE DE D D DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 
ORG $8000 

KEY = $6 

ERRBYTE = $6 

RESULT & $é 

XTORT = $? 

YTORT = $9 

USR = $0A 

VALTYP = $11 

LOPMGVAR = $18 

ADRCOt+1 = $i6 

HAUT # $168 

VAR = $19 

CMD = $19 

EDSC = $19 

EDTL = $19 

EDT #æ $1A 

DEBLIGN = $18 

SDSC = $1C 

FINLIGN = $1D 

SFLD = $10 

CNTR = $tF 

WNDLFT = $20 

UINDUDTH = $21 

WNDTOP = $22 

UINDBT?4 = $23 

CH = $24 

CU = $25 

HBASE = $26 

BSASE = $26 

DPLC = Sir 

KSU = 838 

AIL = $3C 

Aa2t = 83E 

A4L = $42 

RND $4E 

LIFINUM = $50 

STREND = $é6D 

HIMEM - $73 

CURLIN = $75 

DATLIN = $78 

DATPTR = $70 

DD DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE € DE DE DE DE DE DE DE DE DE DE DE DE 

* mm mm mm — + + 

0] IHGR PRINTI e 

C1 mm + C2 

-. L 2 

# CC) Pascal CANTOT - 20/06/84 * 

. - 


DD DE D DE D 26 28 DE DE DE 26 DE DE DE DE DE DE DE DE DE DE DE DE DE D DE 2 DE DD 


WIGRPRINT JSR  INITHPOS 
$37 
#DHCOUT 
HPRINT 
#>HCOUT 
$37 
#HCOUT 
$36 
#HHCURSOR 
#37 
#HCURSOR 
#38 

$S3ER 
+s2C 
HCOUT 
HCURSDR 


HPRINT 


COUT: 
STA CHAR 


KB8D 
K8DSTRB 
POPME 
SPKR 


CHISTK 
ERRGR 
FNDL IN 
NEWSTT 
GOTO 
ADDON 
SA )D 
SAUVSTR 
CRDO 
STROUT 
STRPRT 
OUTDO 
FRINUM 
CHKNU#A 
CHKSTR 
HMCH 
FRMAEUL 
CHKCOM 
SYNCHR 
SNTX 
PTRGET 
ISLETC 


GETBYTC 


Sauvegarde le caractere 


30 


UUNUNAUNENNAUN # 


CE | Wntnuun 


DUNANNANA 


HUMAN UN 


$61 

$83 
$8s 
$96 
$AC 
sA2 
$681 

$87 
$868 
$CE 
$Eé 
$F9 
$F8 
SFC 
$FD 


$100 
$200 
$3EA 
$03FS5 
$706F 
$8785 


$C000 
$CO10 
$CO061 
$C030 


$D3Dé6 
$D412 
$D61A 
$07D2 
$D941 
$0998 
$DASA 
SDAA1 
$DAFB 
$D83A 
$DB30 
$D85C 
$DDé7 
$DD&A 
$DDéC 
$DD7é6 
$DD7B 
$DEBE 
$DECO 
$DEC9 
$DFE3 
$E07D 
$E10S 
$E10C 
$E199 
$E2F2 
$Eé25 
$E6FS 


HCOUTO 


HCQOUTi 


HLUP 


GETBYT = $E6F8 
CONINT = $EéFe 
GETNUM = $E746 
COMBYTE = $E74C 
GETADR = $E752 
FADDH = $E7A0 
FSUB = $E7A7 
FSUBT = $E7PA 
FADD = $E78E 
FADDT = $E?7CI 
MUL10 = $EA39 
FHULT = $E97F 
FMULTT = $E982 
CONUPK = $E9E3 
FDIV = $EA6S 
MOL/FM = $EAF9 
MOUMF = $E628 
MOWYFA = $E853 
RNDE = $E872 
Ags = $EBAF 
INT = $EC23 
FOUT = $ED34 
NEGOP = $EED0 
cos = $EFEA 
SIN L $EFF1 
P12 = $F068 
HCLR = $F3F2 
HPLOT = $F457 
HLIN = $F53A 
HCOLOR = $FéFO 
GETARYPT = $F7D9 
REGDSP = $FAD7 
BASCALC = &FBCI 
BELL æ $F8D0 
BELL2 = $FGE4 
UTAB = $FC22 
MONSCR = $FC70 
RDKEY = $FDOC 
KEYIN = $FD18 
CROUT = $FDBE 
cour = $FDED 
COUTI = $FDFO 
MOVE = $FE2C 
SETINU = $FE6O 
SETNORM = $FE84 
PRERR = $FF2D 
REST = $FF3F 
SAVE = $FF4A 
MONZ = $FF69 
SETU = $FF58 
SHLAM = $FF70 
PUT  ICARE 1 
PUT  ICARE II 
* I C À RE 


jet tous les registres 


INVFLG 
3 NORMAL ? 
:OSK=S7F 


3Si NORMAL 

zlnitsalise 

sie masque d’inversion 
3Transforme Îles car. 

; INVERSE ou FLASH 


3CTRL? 
;Oui->pas d'affichage 


;Affichage 


Position vert. +8 
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93 BPL 
96 CMP 
97 BCSs 
°8 AND 
g9 CMP 
500 
101 HPFENDO JSR 
102 JP 
103 
104 CHAR DS 
105 LINE Ds 
106 MRSK DS 
107 WIDRGHT DS 
108 TYPTBL HEX 
169 
110 HPENDI LDA 
111 STA 
112 JSR 
113 JMP 
114 
115 RMARGIN LDA 
i1é CLC 
117 ADC 
118 STA 
119 DEC 
120 RTS 
121 
122 FNOADR SEC 
123 SBC 
124 AND 
125 STA 
126 LDA 
127 STA 
KEYIN 
SAVE 
CV 
#7 
HPOSN 
CH 
VANOLFT 
CHBASE) ,Y 
(BASE ),Y 
CNTR 
#$FF 
CHBASE),YŸ 
#7011111111 
CHBASE),Y 
CHBASE ),Y 
RNO 
HCURSI 
RND+1 
CHBASE),Y 
HBASE) ,Y 
{BASE ),Y 
CNTR 
(BASE), Y 
CNTR 
$co09 
HCURS 
(BASE),Y 
CHBASE) ,Y 
$co00 
#$80 
HCURS2 
HCLREOL 
REST 
AUT 9 COM 


DDE-DN-DE de DUDN-DE-DE DOUDOU DE DE DD DD DE DE DD DE DD DE DE-DE-DE D 


#s4c 
HCOUT 
HCURSOR 


DDEDN-DN-DEDE-DN-DEDE DD DE DE DD DE DD DD DE DE DD DE DD DE DE DD 


62 LDA CH 

63 CLC 

64 ADC UWNDLFT 

65 TAY 

66 ADR = #i 5Comme CHRGET, ii s’auto-modifie 
67 LORA 52000 3Valeur arbitraire 

68 EUR MASK 

69 TYPE STA  CHBRSE) ,Y  ; STA/ORA/AND/EOR/LBA 

70 HLUP1 STA  (HBASE),Y 

74 INC LINE 

72 INC  ABR 

73 BNE  HLUP2 

74 INC  ABR+Ïi 

75 HLUP2 BEC CNTR 

v6 SNE HLUP 

77 

78 HPENO LOA CHAR tRestaure le caractere 

79 LDX UWNDETM 

80 DEX 

81 STX LINE 

82 LDX cv Teste le scrolling d'ecran 

83 CPX LINE 

84 BCC HPENDO 

85 CHP #58D Return 

gé BEG HPENSI 

87 CMP H##8A line feed? 

56 BEQ HPENDI 

8? LDX CH 

LU) CPX  UANDRGHT 

91 BCC  HPÉNOO 

92 CMP 4495 Hier Da 

93 BEQ HPENDI 

94 TAX 

128 CLC 192 HCURSOR BIT 
129 ROL ADR 193 JSR 
130 ROL  ADRs«ïi 194 LoA 
131 RDL ADR 195 ASL 
132 ROL  ADR+1 196 ASL 
133 ROL ADR 197 ASL 
134 ROL ADR+1 198 CLC 
135 LDA TABLE 199 ADC 
136 ADC ADR 280 JSR 
197 STA ADR 201 LOA 
138 LOf TABLE+I 202 CLC 
139 ADC  ADR+i 203 ABC 
140 STA  ADR+] 204 TAY 
141 RTS 295 LDA 
142 206 PHA 
143 HAMANRARRARERAEREREERAEEEEUMUNNEN 207 LDA 
144 208 STA 
145 DEFCHR JSR  CHRGOT 209 PHA 
i4é CHP #*C’ 210 LDA 
147 BNE FNDCHER 211 STA 
i48 JSR  FRINEM 212 LOA 
149 JSR CONINT 213 EOR 
150 DA 214 STA 
151 JSR  FNDADR 215 HCURS INC 
152 LDA ADR 214 BNE 
153 STA  LINNU 217 INC 
154 LODA  ADR+1 218 EOR 
155 STA LINNUM+1 219 STA 
156 JSR CHRGOT 220 LDA 
157 CMP #°#” 221 TAX 
158 BNE  FNDCHER 222 LDA 
159 LDA #86 223 STA 
160 STA CNTR 224 STX 
181 FNDCHRL JSR CHRGET 225 HCURSi BIT 
162 JSR  FRMNUM 226 BPL. 
163 JSR C@ONINT 227 PLA 
164 DA 228 STA 
165 LDY CNTR 229 PLA 
léé INC  CNTR 230 STA 
167 STA  (LINN UM), Y 231 LDA 
168 JSR  CHRGOT 282 CMP 
169 emP #4,” 233 BNE 
170 BEG  FNOCHRL 234 JSR 
171 235 HCURS2 JSR 
172 RTS 236 JMP 
173 237 

174 FNDCHER LOX #16 3Sntx 238 

175 JMP  ERROR 239 

176 240 HORMPRT  LDR 
PEL LLLLELLLL11:1:221111111111111111] 241 STA 
178 242 STA 
179 SETYP JSR  FRMNUH 243 RTS 
1 60 JSR CONINT 244 

181 CPX #5 245 

182 BCS SETYPERR 246 

183 LDA TYPTBL,X 247 HCLREOL JSR 
184 SFA TYPE 248 LoA 
185 RTS 249 ASL 
186 250 ASL 
197 SETYPERR LDX #53 251 ASL 
168 JMP  ERROR 252 STA 
189 2353 DEC 
LD a#-26-26-20-26-38-0-2 26 36 36 DE 36 36 DE DE DE D DE DE DPI DD DEE DE DE-DEH 254 LOA 
191 255 TLC 
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RrRRGIN 





HPENDI 

SSAC Car. affichable? 

HPENDI 

#37F 

#$20 

REST jLes registres... 

EQUTI $£t affichage TEXT 

1 

1 

1 

1 

9111915181 ;STA/ORA/ANB/EOR/LM <a dr ),Y 

#6 

BYTE 

SCROLL4 

HPENDG 

WNDWDTH 

UNDLFT 

LNDRGHT 

UNDRGHT 

##$20 

#87F 

ADR 

#@ Calcul adresse caractere 

ADR+1 
256 ADC UWNDLFF- 
257 STA LIMITE 
256 DEC LIMITE 
239 LDX #8 
260 HEDLI INC CNTR 
261 LDA CIHITR 
262 JSR  HPOSN 
263 DEX 
264 BMI HEOL3 
265 LDY  WNDRGHT 
266 LDA #0 
267 HEOL2 STA  (HSASE?,Y 
268 DEY 
269 CPY LIMITE 
270 BNE HECL2 
271 BEQ HE@LI 
272 
273 HECL3 RTS 
274 
225 D28-28-28-20-98-20-98-0- 96-026 DE-DE DD DD DD DE-DED-DEDE-DE DE D 
276 
277 HGRCLR LDX LUNDETM 
278 STX LINE 
279 LDA #0 
280 STA CH 
281 TXA 
282 STA CU 
283 HOMLUP DEC CU 
284 JSR HCLREOL 
285 LDA Cv 
286 CMP. LNDTOP 
287 BNE  HOMLUP 
288 RTS 
289 
290 HHHHHHMANANNANERERAERERENIEUUE NN 
291 
292 ADR) F $6 
293 ADR2 - $8 
294 
295 SCROLL JSR GETNIM 
296 STX OYTE 
297 JSR RMARGIN 
298 LDA  LINN{SS 
299 CMP Hi 
300 BEQ SCROLLI 
301 CMP #2 
302 SEQ SCROLL2 
303 CMP 43 
304 8NE SCR 
305 JMP  SCROLL3 
306 SCR CMP #4 
307 BN€E  SCRERR 
308 JMP  SCROLLA4 3IIF ty 
309 SCRERR LDX #53 
310 JMP  ERROR 
311 
312 
313 * 
314 
815 SCROLLI LDA UMNDBTNH 
316 ASL 
317 AsSL 
318 Ast 
319 STA CHTR 





31 








320 JSR  RMARGIN 421 STA ADR2 S2i LBEP HEX 00 





321 LDA lRMIBSTOP 422 LDA HBASE+1 522 LARR HEX 00 

322 ASL 423 STA  ADR2+) 523 LIMITE  DFB 191 

323 ASL 424 LDY  UWNBRGHT 324 

324 ASL 475 S2-LUP LDA  CABRID,Y S25S 26 26 36 26 26 26 36 3 DE DE DE D DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE 
325 STA LIMITE 426 STA  (ADR2) ,Y S2é * Li 
326 SCRI DEC CNTR S27 # Cette routine rempla*.ant Li 
327 LDA  CNTR 427 DEY 528 * HPOSN ($F411) calcule }’adr. * 
328 JSR  HPOSN 428 CPY LINE 529 + de dthut d’une ligne HGRI et # 
329 LOY HMWDEFT 429 BNE  SS3'LUP 530 # là met dans HBASE (%26). * 
320 INY 430 BEQ S3-NEWL 531 « * 
331 SI'LUP LDA CHBASE),Y 431 532 * Cette routine est beaucoup  # 
332 DEY 432 SS°CLR LDA LARR 533 x plus rapide, car elle utilise 
333 STA  CHBASE),Y 433 CMP LIMITE 534 x une table d'adresses, crête # 
334 INY 434 BEQ SCR3*A 535 * par INITHPOS. * 
335 INY 435 SEC 536 * * 
336 CPY  LNBRGHT 436 SBC #1 537 x En revanche, la table occupe * 
337 BCC Si‘LUP 437 STA  LARR 538 # beaucoup de placée en memoire.x 
338 LDA  ONTR 438 JSR  HPOSN 533 * Mais il fallait un screlling * 
339 JSR  HPOSN 439 LDA  HBASE 540 »# rapide... * 
349 LDA BYTE 440 STA  ADR2 Av = 
341 LDY  IMNDRGHT aai LDA  HBASE+1 S42 #22 26 26 26 DE DE DE DE DE DE DE DE DE JE DE DE DE DE DE DE DE DE DE DE DE HE DE DE HN 
342 STA  CHBASE) ,Y 442 STA  ADR251 543 

me on re 

344 CMP T NITHPOS LOA #192 

ne BNE FE : 445 S3*CLUP STA CADR2),Y 2. Î SAINTE 

3aé RTS 44é DEY 547 Loa  HPAG 

347 447 CPY LINE 548 PHA 

348 SCROLL2 LD LAIDBTH 448 BNE  S3*CLUP 549 LDA +0 

349 ASL 449 BEQ S3°CLR 550 STA HPAG 

350 ASL 458 : 551 

351 ASL 451 SCR3 A URTS 552 INITHPI DEC CNTR 

352 STA  CNTR 452 553 LDA CNTR 

353 JSR  RMARGIN EEE — 7 554 JSR $F411 : HPOSN 
354 LDA UNBT@F asa 555 LDY @NTR 

355 ASL 455 SCR6LL4 LDA uNBTOP 556 LDA HBASE+1 

356 ASL 456 ASL 557 STA  ADRH,Y 

357 ASL 457 ASL 558 LDA  HBASE 

358 STA LIMITE 458 ASL 559 STA ADRL,Y 

359 LDY  LANDLFT 459 STA  LARR Séo LDA CNTR 

360 DEY 460 DEC LARR Séi BNE  INITHPI 

361 STY LINE 46! CLC 562 

362 SCR2 DEC CNTR 462 ADC #7 563 PLA 

363 LDA CNTR 463 STA LDEP 564 STA  HPAG 

364 JER HPOSN 464 LDA 1W{DBTM 565 RTS 

365 LDY  IHDRGHT 465 ASL Séé 

3éé DEY aéé ASL 567 HPOSN TAY ;A=ligne 
367 S2*LUP  LDA (CHBASE),Y 467 ASL 568 JSR  FNDPAG 

368 INY 468 STA LIMITE 569 LDA ADRL,Y 

369 STA  CHBASE),Y 469 JSR  RMARGIN S70 STA HBASE 

379 DEY a7s 571 LDA  ADRH,Y 

371 DEY 471 S4"MEWL LDA LOEP S72 DORA  HPAG 

372 CPY LINE 472 ic 573 STA HBASE+1 

373 BNE S2*LUP 473 ADC #1 574 RTS 

374 LDA CNTR 474 CMP LIMITE 575 FNDPAG  LDA  HPAG 

375 JSR  HP@SN 475 BCS S4‘CLR 576 CMP #40 

376 LDA BYTE a76 STA LDEP 577 BEQ  FNDPG 

377 LDY WNOLFT 477 JSR  HP@SN 578 LDA  #$20 

378 STA CHBASE),Y 478 LDA HBASE 579 STA  HPAG 

379 LDA CNTF 479 STA  ADRI 586 FtiDPG RTS 

380 CMP LIMITE 489 LDA HBASE+1 581 

381 BNE  SCR2 491 STA ADRI+i Sa2 

382 RTS 482 LDA LARR 583 x Tables des adr. HGR pour HPOSN 
383 483 CLC 584 *# La page HGR est 1 par defaut 
384 484 ADC #1 S85 *x En cas de changement de page, 
385 SCROLL3 LDA  KNDBTM 485 STA LARR S86 * il faudra rappeler INITHPOS 
386 ASL agé JSR HPOSN 597 

387 ASL 487 LDA HBASE 588 

388 ASL 488 STA  ADR2 S&7 ADRH DS 192 

389 STA  LARR 489 LDA HBASE+1 590 ADRL DS 192 

390 SEC 490 STA  ADR2+i 591 

391 SBC #8 491 LDY  LA#IDRGHT SP2 M D DD D DE DE DE DE DE DE DE DE DE DE DE 26 6 DE DE JE DE DE DE DE NE NE EN 
392 STA LDEP 492 S4“LUP LDA (CADRID,Y 593 

393 LDA UNDTOP 493 STA  CADR2) ,Y 594 

394 ASL 494 CPY  UWAIDLFT 595 POKE JSR  FRINUM 

395 ASL 495 BEQ SA4-NEWL 596 JSR  GETADR 

394 ASL 496 DEY 597 LDA Lireium 

397 STA LIMITE 497 BPL S4-LUP 598 STA %é 

398 JSR RMARGIN 498 599 LDA LIræitR4+i 

399 LDY UWNDLFT 499 S4'CLR BEC LIMITE 606 STA #%7 

400 DEY 500 S4°CL LDA LARR 601 JSR CHKC@æe4 

401 STY LINE 501 emP LIMITE 662 JSR  FRMNUM 

402 502 BEQ SCR3'A 603 JSR GETADR 

402 S2-NEWL LDA LOEP 583 CLC 604 LDY #0 

404 SEC 504 ADC #i 605 LDA  LINNU4 

405 SEC #1 505 STA  LARR 606 STA (86) ,Y 

406 CMP LIMITE 506 JSR  HP@SN 607 LOA  LINNUEMS 1 

407 BEQ S3°CiRr 507 LOR HBASE 608 INY 

408 STA LOEP 508 STA  ABR2 609 STA (#6),Y 

409 JISR  HPOSN 509 LA HBASE+: ét0 RTS 

410 LDA  HSASE 510 STA  ADR2+1 é1i 

411 STA  ADRI Sii LDA @YTE SL 2H PIED IEEE 

412 LDA  HBASE+1 512 LDY  UWNDRGHT 6i3 

413 STA  ABRI+1 513 S4‘CLUP STA (CADR2),Y 614 SETPEEK LDA H#4C 

414 LDA  LARR si4 CPY UNDLFT 615 STA USR 

415 SEC sis ere S4'Ct éié LDA  HPEEK 

daté sBC #1 514 DEY 617 STA  USR+i 

417 STA LARR si? BPL S4-CLUP 618 LDA #)DPEEK 

418 LDA  LARR sie sis STA  USR+2 

a1v JSR  HPOSN 519 628 RTS 

420 LDA  HBASE 520 BYTE HEX 00 621 
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622 PEEK JSR GE ADR 
623 LOY #1 

624 LOA , CL IPANUM), Y 
625 Tax 

626 DEY 

627 LA  CLINNEM) ,Y 
628 TAY 

429 DA 

630 MAP GIVAYF 

631 

632 

633 

634 244 34 AN DE DE DE DE DD DD DD 
635 

636 smuuuauacem—m———# 

637 # AUTOCOM: touchesx* 

63B = de fenctiens + 

CLR PS # 

640 #par Pascal CANTOT*x 

GQI Raman ne mm y 

642 

643 * APPLE //fe: Appuyer sevr 
644 # {open—Apple} et la touche 
645 

646 

é47 SETCOM LDA  HAUTGCON 
648 STA Ksy 

649 LDA  H)AU OC: 
650 STA KSW+1 

651 JMP INTDDS 
652 

653 AUTOCOH YJSR ICEYIN 

654 STA KEY 

655 LDY POMME 

éSé BMI  CO#1anD 
657 LDY POMME+1 
458 EMI CReYND 
6359 RTS 

660 

éé6i CŒMAND STX CNTR 

éé62 LOY #24 

663 JSR BELL2 

664 LOY #0 

665 LOX CNTR 

ééé COMFND LDR KEY 

667 CMP TR" De] 
é68 BSER DELCOM 
éé9 CMP #70" 

é?0 8CC CFNDLUPF 
671 CMP #°8" 

672 BCS CFNDLUP 
673 SB€ 

674 SEC #sBe 

675 TAY 

é7é STA SCGS0,Y 
67? JMP  AUFTOCOM 
678 CFNDLLIP LOA COMTAB,Y 
679 8EQ OIOTFND 
TT? ARRNANARMARELAREEERLRES A ERA R RE 
798 

79 COML1B ASC "PRINT" 

80û HEX 00 

801 Ci ASC  "CATALOG’ 
80 2 HEX  3D00 

803 C2 ASC "HOME: P@KE33,28:LIST* 
804 HEX 00 

805 C3 ASC ‘CALL-iSi* 
866 HEX  6D00 

8067 C4 ASC ‘"& DO" 

808 HEX 00 

609 CS ASC  * INPUT" 

810 HEX 00 

811 Cé ASC "&PLAY®" 

812 HEX 00 

813 C7 ASC  "ASSEM° 

814 HEX  8DOG 

8:55 Ce ASC "&SUPER PRINT® 
8ié HEX 06 

8i7 C9 ASC "&NOÏSE* 
818 HEX  D0 

Bi$ C19 ASC  "&PRINT USNG>* 
820 HEX 00 

82i Cii ASC  °HGR° 

822 HEX  8DOû 

B23 C12 ASC ‘GR° 

824 HEX  8D60 

62S C13 ASC  "TEXT :NORMAL" 
826 HEX  8D0û 

827 Cid ASC "LORD" 

828 HEX 00 

6829 Cis ASC °SAVE" 

830 HEX 00 

83i Clé ASC  "BREN° 

6832 HEX 00 

833 C17 ASC "COLOR =° 
834 HEX 095 

835 C18 ASC ‘"HPLOT" 
836 HEX 00 

6837 Ci ASC  ‘"RiRI* 

838 HEX 80 

639 C20 ASC ‘&GET" 
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680 
é81 
682 
683 
684 
685 
é8é 
687 
688 
689 
690 
691 

692 
693 
694 
6975 
496 
69? 
698 
699 
700 
701 

702 
703 
704 
705 
706 
707 
708 
709 
716 

711 

712 
713 
714 
715 
7ié 
717 
718 
719 

720 

721 

722 
723 
724 
725 

726 
727 
728 
729 

730 

731 

732 
733 
734 
735 
736 
737 


CFGUNO 


COMOUT 


COMEND 


COMCR 


CNOTFND 


DELCOM 


COTAG 


KEY 
CFOUND 


CFNDEUP 


COMTAB,Y 
ADRCOM 


CONTA8,Y 
ADRCOH+ ! 
xq 
(ADRCO-L ,Y 
COMEND 
#$8D 
COMCR 

IN,X 


COUT 
COMOUT 
WSA0 


841 C21 
843 C22 
84$ C23 
647 C24 
649 C25 
851 C2é 
653 C27 
855 C28 
657 C29 
659 C30 
66i C31 
863 C32 
665 C33 
667 C34 
869 C35 
871 C36 
673 C37 


B7$ C38 


HEX 


738 
739 
740 
741 

742 
743 
744 
745 
74é 
747 
748 
74$ 
750 
751 

752 
753 
754 
755 
756 
757 
258 
759 
760 

761 

762 
763 
764 
765 
766 
76? 
768 
767 
770 
771 

772 
773 
774 
775 
776 
777 
778 
779 
780 
781 

782 
783 
784 
785 
786 
787 
788 
789 
790 
791 

792 
293 
794 
775 
796 


60 
"LisT" 
#0 
"MiD$ C* 
20 
"CHR$C 
co 
"PEEK£* 
co 
+POKE" 
00 
“POKE-16368,0:" 


ASC 


zsRsarpsRsRv es 


Le] 


FRS2FEFAS2S2FES 


Z 
m 
x 


3Tab 


‘2° HIMEM =” "PEEK(115)+PEER(116)#256! 


8b00 


12° LOMEM = *"PEEK(105)4+PEEK(106) 256! 


8D60 
00 

" N ED246* 
8p60 
“&CIRCLE=" 
00 
"&XCIRCLES"* 


00 
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AÉRESRONRI ER RNT IT  EOOT SNRRRRERRNRNNENERNENEEERE 


objet ICARE 3.1 


*8000.8645S 


8000- 49 7F 85 74 A9 FF 85 73 
8008- A2 02 BD 25 80 9D FS 03 
8010- 95 4F CA 10 FS AO O0 B9 
8018- 84 80 FO 06 20 ED FD C8 
8020- DO FS 4C 8F 9D 4C 28 80 
8028- 20 B7 O0 FO D3 A2 OO 88 
8030- 19 AO OO BD 1B 8 FO 2A 
8038- C9 FF FO O8 D1 B8 DO i? 
8040- C8 E8 DO EF A9 73 AO 80 
8048- 20 3A DB A9 00 85 SO A2 
8050- FF 20 CO 83 4C BF 9D Eg8 
8058- BD 1B 81 DO FA E8 E6 19 
8060- DO CF 20 98 D9 06 19 A6 
8068- 19 BD OC 81 48 BD DE 81: 
8070- 48 60 8D DS CE C8 CE CF 
8078- D7 CE AO C3 CF CD CD Ci 
8080- CE C4 8D OO 8D 8D AO AO 
8088- AO AO AO AO AO AO 40 AO 
8090- AO 20 20 20 O3 03 O1 12 
8098- 05 20 20 20 20 8D 8D Ci 
8040- CD DO CS 92 AD C9 CE Da4 
80A8- CS D2 DO D2 CS D4 CS DS 
80B0- D2 AO C1 DO DO CC CS D3 
80B8- CF C6 D4 8D 8D A8 C3 A9 
80C0- AO DO C1 D3 C3 C1 CC AO 
80C8- C3 C1 CE D4 CF D4 AO AD 
80D0- AO Bi B93 B8 B4 AO AD AO 
80D8- CS D4 AO CC CS D3 8D AO 
80E0- 40 AO AO AO AO AO AO AO 
80E8- AO AO AO C3 CF AD C1 DS 
80FO- D4 CS DS D2 D3 8D AO AO 
80F8- AO AO AO AO AO AO AO AO 
8100- C3 C1 CC CC AO C1 AE DO 
8108- AE DO AE CC AE CS AE AO 
8110- CS D4 AO DO CF CD A7 D3 
8118- AE 8D OO BA S5 53 4E 47 
8120- CF OO 42 45 4C 4C O0 52 
8128- 50 54 BA O0 53 57 41 SO 
8130- CF 00 85 41 52 52 41 59 
8138- CF O0 4E 4F 49 53 45 O0 
8140- BS OO 50 4C 41 59 OO AB 
8148- O0 BO OO 8D 00 50 52 4F 
8150- 55 S4 00 48 41 52 44 43 
8158- 4F SO 59 00 42 4B 47 4E 
8160- 44 00 48 49 4E 56 00 52 
8168- 45 47 00 53 59 S3 O0 4D 
8170- 4F 56 45 00 42 SS 46 46 
8178- 45 S2 DO 00 87 00 57 52 
8180- 49 S4 453 OO AE O0 53 55 
8188- 50 45 52 BA OO BA OO BE 
8130- 00 43 49 52 43 4C 45 DO 
81938- O0 58 43 49 52 43 4C 45 
81A0- DO O0 91 BA 00 53 43 52 
81A8- 4F 4C 4C O0 B8 E7 OO S4 
81B0- 59 50 45 DO 00 97 00 9D 
81B8- BA O0 B9 O0 E2 00 53 48 
81C0- 4F 4F S4 00 44 4F 5B 00 
81C8- 45 58 45 43 CA 00 58 46 
81D0- 5S 4E 43 54 00 55 53 45 
81D8- S2 O0 FF 2A 82 FD 83 26 
81£0- 83 55 83 8F 83 BC 83 08 
81E8- 84 24 84 65 84 78 84 D8 
81F0- 83 AO 84 DA 84 1F 85 47 
81F8- 85 D6 FA 68 FF SB 85 EE 
8200- 85 CA 85 E3 85 12 86 42 
8208- 86 FC 86 SO 87 71 87 SF 
8210- 88 CA 8C DC 8E D8 8D 1B 
8218- 8E C4 8E 88 8E 52 92 75 
8220- 92 48 84 67 88 74 8C 92 
8228- 92 FF O2 20 7B DD 20 6C 
8230- DD A9 1C AO O0 85 85 84 
8238- 86 20 SA DA A9 3B 20 CO 
8240- DE A9 1C AO O0 85 AO 84 
8248- A1 49 19 85 85 84 86 20 
8250- A1 DA A2 OO A4 19 FO 1C 
8258- 88 81 1A C9 30 FO 10 C9 
8260- 20 FO OC C3 24 FO 08 C9 





Super PRINT de D Sureau - 
Pom's9 codes correspondant aux 
lignes 55 à 181 du source original, 
relogés à 58646 


*86FD.886B 


86FD- 20 7B DD 

8700- 20 6C DD A9 CS 20 CO DE 
8708- AS 25 48 AS 24 48 AS AO 
8710- 48 AS A1 48 20 46 E7 8A 
8718- FO 27 EO 193 BO 23 CA 86 
8720- 25 20 22 FC A6 SO FO 193 
8728- EO 29 BO 15 CA 86 24 68 
8730- 85 A1 68 85 AO 20 3D DB 
8738- 68 85 24 68 85 25 4C 22 
8740- FC 68 68 68 85 24 68 85 
8748- 25 20 22 FC A2 35 4C 12 
8750- D4 2C 10 CO 20 OC FD 29 
8758- 7F A8 A9 O0 20 F2 E2 20 
8760- D1 8A AA 4C 2B EB 68 87 
8768- DO OB C9 18 BO O7 AA C8 
8770- 68 48 A3 00 8D 71 87 20 
8778- 67 DD 20 52 E7 AS SO 8D 
8780- 67 87 8D 6A 87 AS S1 8D 
8788- 68 87 8D 6B 87 20 BE DE 
8790- 20 67 DD 20 FB E6 8E 69 
8798- 87 8E 6C 87 20 BE DE 20 
87A0- 67 DD 20 FB E6 EO OO FO 
87A8- A3 8E 66 87 8E 70 87 A9 
87B0- O0 8D 6E 87 8D 6D 87 8D 
8788- 6F 87 20 E7 87 18 AD 6D 
87CO0- 87 6D 70 87 8D 6D 87 90 
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87C8- C6 EE 6E 87 20 E7 87 38 
87D0- AD 6F 87 ED 6E 87 8D 6F 
87D8- 87 BO E2 CE 70 87 20 E7 
87E0- 987 AD 70 87 DO D7 60 AD 
87E8- 69 87 18 6D 6E 87 BO O7 
87FO0- C3 CO BO 03 20 00 88 38 
87F8- AD 69 87 ED 6E 87 90 4B 
8800- 48 AD 67 87 18 6D 70 87 
8808- BO 12 AC 68 87 FO O4 C9 
8810- 18 BO 193 484 68 48 20 4C 
8818- 88 4C 2C 88 AC 68 87 DO 
8820- OB CS 18 80 07 AA C8 68 
8828- 48 20 4C 88 38 AD 67 87 
8830- ED 70 87 90 OB AC 68 87 
8838- AA 68 20 4C 88 4C 4B 88 
8840- AA 68 AC 68 97 FO O4 88 
8848- 20 4C 88 60 20 57 F4 AD 
8850- 71 87 FO F7 AD 6A 87 AE 
8858- 6B 87 AC 6C 87 4C 3A FS 
8860- A9 AO 8D 71 87 4C 77 87 
8868- 20 B7 O0 DO O1 60 





ROUTINE VARIABLE 
de la Tortue 


#8A01,8AE 3 


BADI- A9 60 85 i4 20 E3 DF 
8A08- 24 13 30 05 24 12 30 01 
BAES- 60 40 76 DD 





Tortue de DUMA - Pom's6 à 
l'adresse $886E — avec modificatiens 
au-dessous. 


#8C7S. 9OD2 


8C75- A9 O0 8D 

8C78- CA 8C 20 7B DD 20 6C DD 
8C80- AS A1 AO O2 B1 AO 99 18 
8C88- 00 88 10 F8 E6 18 A2 O0 
8C90- C8 B1 19 O9 80 9D 00 02 
8C38- C8 E8 C4 18 90 F3 CA AD 
8CAO- CA 8C DO 16 AS AO 8D CA 
8CA8- 8C A9 8C 85 1A A9 C1 85 
8CBO- 13 A9 08 85 18 AO O0 4C 
8CB8- 91 8C A9 00 85 48 4C 70 
8CCO- FF AO CE AO C4 B7 Ca B2 
8CC8- C7 AO 00 20 91 90 AS 37 
8CDO- C9 8C FO 13 A9 8C 85 37 
8CD8- AS FO 85 36 A9 8E 85 33 
8CEO0- A9 32 85 38 20 EA O3 A3 
8CE8- 2C 8D Fe 8C 8D 32 8E 60 
8CFO- 2C FO FD 8D 88 8D 20 4A 
8CF8- FF 20 3C 8D A2 O0 8E 8A 
8D00- 8D A6 32 30 OS A9 7F 8D 
8D08- 8A 8D AD 88 8D 30 OD A2 
8D10- 7F 8E 8A 8D 29 3F C3 20 
8D18- BO O2 09 CO C9 AO 90 34 
8D20- 20 A8 8D A2 08 86 1F AS 
8D28- 25 OA OA OA 8D 83 8D AD 
8D30- 89 8D 20 B7 90 AS 24 18 
8D38- 65 20 A8 AD O0 20 4D 8A 
8D40- 8D 91 26 91 26 EE 89 8D 
8D48- EE 3C 8D DO 03 EE 3D 8D 
8DS0- C6 1F DO DB AD 88 8D A6 
8DS8- 23 CA 8E 89 8D A6 25 EC 
8D60- 83 8D 30 1E C3 8D FO 293 
8D68- C9 8A FO 25 A6 24 EC 8B 
8D70- 8D 90 OF C3 9S FO 1A AA 
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8D78- 
8D80- 
8D88- 
8D30- 
8D938- 
8DAO- 
8DA8- 
8DBO- 
8DB8- 
8DCO- 
8DC8- 
8DDO- 
8DD8- 
8DEO- 
8DE8- 
8DFO- 
8DF8- 
8E00- 
8E08- 
8E10- 
8E18- 
8E20- 
8E28- 
8E30- 
8E38- 
8E40- 
8E48- 
8ES0- 
8ES8- 
8E60- 
8E68- 
8E70- 
8E78- 
8E80- 
8E88- 
8E90- 
8E98- 
8EAO- 
8EA8- 
8EBO- 
8EB8- 
8ECO- 
8EC8- 
8EDO- 
8ED8- 
8EEO- 
8EE8- 
8EFO- 
8EF8- 
8FO00- 
8F08- 
8F10- 
8F18- 
8F20- 
8F28- 
8F30- 
8F38- 
8F40- 
8F48- 
8FS50- 
8FS58- 
8F60- 
8F68- 
8F70- 
8F78- 
8F80- 
8F88- 
8F30- 
8F38- 
8FAO- 
8FA8- 
8FBO- 
8FB8- 
8Fco- 
8FC8- 
8FDO- 
8FD8- 
8FEO- 
8FE8- 
8FFO- 
8FF8- 


3000- 91 08 
3008- FO D7 
3010- 8D 8F 
3018- 07 8D 
3020- OA 8D 
3028- 8E 930 
3030- BO 30 
3038- AS 26 
3040- AD 8F 
3048- 930 20 
3050- AS 27 
3058- 06 91 
3060- 10 FS 
3068- CD 930 
3070- 8D 8F 
3078- 85 08 
3080- 90 AC 
3088- FO DB 
30930- BF A9 
3098- A9 00 
3OAO- 20 11 
3O0A8- D3 90 
3OBO- 1F DO 
30B8- 20 C8 
30C0- B93 D3 
30C8- AS E6 
30D0- 85 E6 


Table 


9253-20. 67 
9258- E7 AS 
39260- 07 20 
3268- S2 E7 
39270- AS 51 
39278- 85 OA 
9280- 85 OC 
3288- B1 S0 
32930- ac F2 
32938- 932 85 
32A0- FD 85 
32A8- AC 62 
32B0- AO 18 
32B8- 1F AS 
32C0- BO 90 
32C8- E9 BO 
32D0- 932 B9 
32D8- FO 06 
32E0- C8 89 
32E8- 15 93 
32F0- FO OF 
32F8- 02 E8 
3300- 92 A9 
39308- 20 60 
39310- ED FD 
9318: C3:91 
39320- 93 Da 
9328- C4 93 
3330- DD DE 
9338- 93 C7 
3340- 08 94 
39348- BD 17 
39350- 94 D1 
9358- 33 94 
39360- BE 45 
3368- 94 D93 
3370- 86 94 
3378- DA BD 
3380- 94 AF 
39388- ED 94 
39330- 00 C3 
33938- 8D 00 
33AO- CF CB 
33A8- BA CC 
33B0- CC CC 
393B8- A6 AO 
33C0- DO DS 
33C8- D3 00 
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33D0- OO A6 D3 DS DO C5 D2 AO 
33D8- DO D2 CS CE D4 OO A6 CE 
393E0- CF C9 D3 CS OO A6 DO D2 
33E8- C9 CE D4 AO DS D3 CE C7 
33F0- BE O0 C8 C7 D2 8D O0 C7 
393F8- D2 8D OO D4 CS D8 D4 BA 
3400- CE CF D2 CD C1 CC 8D 00 
3408- CC CF C1 C4 O0 D3 Ci DS 
9410- CS 00 C2 D2 DS CE O0 C3 
3418- CF CC CF D2 AO BD O0 C8 
93420- DO CC CF D4 OO D2 DS CE 
39428- 00 A6 C7 CS D4 00 CC C9 
3430- D3 D4 O0 CD C9 C4 A4 A8 


3438- OO C3 C8 D2 A4 A8 OO DO 
3440- CS CS CB A8 OO DO CF CB 
3448- CS O0 DO CF CB CS AD B1 
3450- B6 B3 86 88 AC BO BA O0 
3458- CE CS D8 D4 00 C3 C1 CC 
S460- CC 00 BF A2 C8 C9 CD CS 
3468- CD AO BD AO A2 DO CS CS 
3470- CB A8 81 B1 BS A9 AB DO 
3478- CS CS CB A8 B1 B1 B6 A9 
3480- AA B2 BS5 B6 8D OO BF A2 
S488- CC CF CD CS CD AO BD AO 
94930- A2 DO CS CS CB A8 Bi BO 
3498- BS AS AB DO CS C5 CB A8 


3S4AQS- B1 BO B6 AS AA 82 BS B6 
34A8- 8D O0 AO AC AO AO AO AO 
94BO- AO AO OO AO CE AO CS Cd 
34B8- B2 B4 C7 8D OO A6 C3 C9 
94C0- D2 C3 CC C5 BD O0 A6 D8 
34C8- C3 C9 D2 C3 CC C5 BD O0 
34D0- A6 AO D7 Ci C9 D4 AO O0 
34D8- D4 CS D8 D4 BA C8 CF CD 
94E0- CS 8D OO AO D2 CE C4 A8 
3S4E8- B1 AS AA AO OO A6 DO D2 
34FO0- CF DS B4 AO 00 00 





* Remplacer ‘suite Instruction” origi- 
näl par celui-ci 

* Supprimer les lignes 65 à 90 de 
l'original. 

* Assembler à l'adresse $886E 


#7000.7380 


7000- 00 00 00 00 00 00 00 00 
7008- IC 1C 1C 1C 1C O0 1C O0 
7010- 36 36 24 12 00 00 O0 00 
7018- 22 7F 22 22 22 7F 22 00 
7020- 08 3E O2 3E 20 3E O8 O0 
7028- 47 25 17 08 74 52 71 O0 
7030- OC 12 O2 O4 OA 12 2E O0 
7038- 1C 1C 10 OC O0 00 00 00 
7040- 18 OC 06 06 06 OC 18 00 
7048- 06 OC 18 18 18 OC 06 O0 
70S0- 84 9S 8E 84 8E 95 84 80 
7058- 00 08 O8 3E 18 18 00 O0 
7060- 00 00 00 00 1C 1C 10 OC 
7068- 00 00 00 3E 3E 00 00 00 
7070- OO 00 00 00 1C 1C 1C 00 
7078- 40 20 10 08 O4 O2 O1 O0 
7080- 1F 11 19 15 13 13 1F O0 
7088- 07 O4 04 O4 04 O4 1F O0 
7090- 3F 20 20 3F 03 03 3F O0 
7098- 1E 10 10 1E 18 18 1F OO 
70AO0- 91 91 91 91 BF 98 98 80 
7OA8- 1F O1 O1 1F 18 19 1F O0 
70B0- SF 91 81 9F 93 93 9F 89 
70B8- SF 91 88 84 86 86 86 80 
7O0C0- 1F 11 11 1F 13 13 1F O0 
70C8- 1F 11 11 1F 18 19 1F O0 
70D0- O0 1C 1C O0 1C 1C O0 00 
70D8- 00 1C 1C OO 1C 1C 10 OC 
7OE0- 10 O8 O4 03 O4 08 10 00 
70E8- O0 3E 3E OO 3E 3E OO O0 
70FO0- 01 O2 04 18 O4 02 O1 O0 


HRÉLLLCLI EI SCEEESEESSSEECSEESEEEES TS 


2 

3 *# Suite instructions 
4 

5 SORTIE JSR $87 

é OP #']’ 

t BNE SSUITE 


70F8- 7E 42 40 78 08 00 08 00 
7100- 3C 24 3C 00 00 O0 O0 00 
7108- 1F 11 3F 21 23 23 23 00 
7110- 1F 11 3F 21 23 23 3F OO 
7118- 3F 21 O1 O3 O3 23 3F O0 
7120- 1F 21 21 23 23 23 1F O0 
7128- 3F O1 OF O1 O3 O3 3F 00 
7130- 3F O1 iF O1 03 03 03 00 
7138- 3F 21 O1 39 23 23 3F O0 
7140- 21 21 3F 21 23 23 23 00 
7148- O4 94 04 OC OC OC OC 00 
7150- 20 20 20 30 30 31 1E O0 
7158- 21 11 O9 OF 13 23 23 O0 
7160- O1 O1 O1 O3 O3 03 3F O0 
7168- 3F 49 49 49 4B 4B 4B O0 
7170- 27 29 29 293 2B 2B 33 O0 
7178- 3F 21 21 21 23 23 3F O0 
7180- 3F 21 21 3F 03 O3 O3 00 
7188- 3F 21 21 29 2B 13 2F O0 
7190- 3F 21 21 3F 13 23 23 O0 
7198- 3F O1 O1 3F 30 30 3F OO 
7140- 3F O4 O4 O4 OC OC OC 00 
71A8- 21 21 21 23 23 23 3F O0 
71B0- 21 21 23 23 22 14 O8 O0 
71B8- 4i 41 49 49 4B 4B ?F O0 
71C0- 21 12 OC OC 12 21 21 OO 
71C8- 21 21 21 3F O4 OC OC 00 
71D0- 3F 10 08 O4 02 03 3F 00 
71D8- 1E O2 02 O2 O2 O2 1E O0 
71E0- O1 O2 04 O8 10 20 40 O0 
71E8- 3C 20 20 20 20 20 3C 00 
71F0- OO 08 1C 36 83 00 00 00 
71F8- O0 00 00 00 00 00 00 00 


8 JSR $81 

9 RTS 

10 SSUITE LOA #”; 
fi JSR $DEC 
{2 JP  $6B68 
33 


Î4 HAREEEEEEEEHAERREEEEEEEERAERRERE 


7200- 00 00 00 00 00 00 00 00 
7208- 00 00 3E 20 3E 22 3E 00 
7210- 02 02 3E 22 22 22 3E 00 
7218- OO O0 3E 02 02 O2 3E 00 
7220- 20 20 3E 22 22 22 3E 00 
7228- 00 O0 3E 22 3E 02 3E 00 
7230- 3C O4 1E O4 O4 04 O4 00 
7238- 00 00 3E 22 22 3E 20 3E 
7240- O2 02 3E 22 22 22 22 00 
7248- 18 00 18 18 18 18 18 00 
7250- 00 10 00 10 10 10 12 1E 
7258- 02 02 12 OA 06 OA 12 O0 
7260- 18 18 18 18 18 18 18 O0 
7268- 00 00 7F 49 49 49 49 00 
7270- O0 O0 3E 22 22 22 22 00 
7278- 00 00 3E 22 22 22 3E O0 
7280- O0 00 3E 22 22 3E O2 02 
7288- 00 00 3E 22 22 3E 20 20 
7290- 00 00 3E 22 02 02 02 00 
7298-.00 00 3E 02 3E 20 3E O0 
72A0- 00 04 3E 04 04 04 3C O0 
72A8- O0 00 24 24 24 24 3C 00 
72B0- OO 00 22 22 22 14 08 O0 
72B8- 00 O0 41 49 49 49 7F 00 
72C0- O0 O0 22 14 08 14 22 00 
72C8- O0 00 22 22 22 3E 20 3E 
72D0- 00 00 3E 10 68 04 3E 00 
72D8- O0 00 00 00 00 00 00 00 
72E0- 00 O8 08 08 08 08 08 08 
72E8- 00 00 00 00 00 00 00 00 
72F0- 00 00 00 00 00 00 00 00 
72F8- O0 00 00 00 00 00 00 00 
7300- FF 





Ecriture entrelacée/verticale 


Voici deux petites routines qui se suf- 
fisent à elles-mêmes et peuvent 
éventuellement être utilisées pour 
une présentation plus originale de 
VOS pregrammes. 


Marcel Cottini 





S$ TEXT : HOME 

19 F@RI = 1 TO 7: POKE 32,2 « 1 - i: P 
OKE 33,1: HOME : READ AS: PRINT A 
4: NEXT 1: TEXT : VTAB 23: EN 


PÉRII Ll Léléeréress-péel 
ASE 
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20 PATA LECTURE ,VISIBLEMENT;EN COLON 
NES, VERTICALES,MIS AU POINT.PAR C 
OTTINI MARCEL,POUR BEMONSTRATION. 





10 TEXT : H@ME 
32@ A15 = “Nernalerent.l'ecriture s'affi 


330 A28# » “du heut vere le baag,et nen de 
dreite, 
34@ A33 = ‘vers la gauche eu inversement 


350 448 = ‘Ceci n'est que dénsonstratii,e 
t arrangé à" 
360 ASS = ‘‘cet effet. 


370 A69 = ‘Les lignes e’entrelacent de gq 
auehe à a 
386 479 = ‘‘droite.et inversenent. 


336 FOR I = 1 TO 40 

400 VTAB 7: HTAB 41 - I: PRINT LEFTS ( 
418,1) 

41e VTAB 8: HTAB Il: PRINT RIGHTS (A28, 
D 

429 NEXT 

43e FOR I = 1 TO 40 

440 VTAB 9: HTAB 41 - 1: PRINT LEFTS ( 
A35$,1) 

450 VTAB 11: HTAB 1: PRINT RIGHTS (A46 
+1 

460 VTAB 12: HTAB 41 - I: PRINT LEFTS 
(ASS ,1) 

47@ NEXT 

480 FCR I = 1 T® 40 

490 VTAB 14: KTAB 1: PRINT RICHTS (A6S 
“LD 

500 VTAB 15: HTAB 41 - 1: PRINT LEFTS 
tA76, 1) 

300 NEXT 
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Visicalc Advanced Version (VAV) est 
déjà sorti depuis quelque temps en 
version //e. mais je n'avais pas en- 
core eu l'occasion de le tester et, 
partant, de vous en parler. VAV se 
présente sous la forme d’un classeur 
avec une documentation de plus de 
200 pages, une disquette de boot et 
une disquette programme : présenta- 
ton professionnelle. Il est indispensa- 
ble de disposer de 128K de mé- 
moire, et très souhaitable d'avoir 
deux lecteurs de disquettes: il faut 
enfin pouvoir dépenser 3.200 F HT 
prix public. 


Vitesse de calcul 


En quelque mots, c'est un tableur 
presque aussi rapide que Visicalc et 
plus puissant que Multiplan selon de 
nombreux critères. Ainsi. j'ai 
comparé diverses mesures de temps 
et de place mémoire pour le tabieau 
de trésorerie utilisé dans les livres 
“Visicalc sur Apple” et “Multiplan 
pour Apple”; en voici les résultats : 


Visicalc Muliplen Magicalc V.AV 





Chargement 60° is” 53" 115" 
Mémoire libre 21K 2SK 76K S6K 
Tempsdecakul 237 50” 25° 33° 


Un autre tableau très simple a été 
constitué, avec des chiffres dans les 
dix premières cellules de la colonne 
1. puis 10 colonnes de 100 lignes ef- 
fectuant la somme des dix valeurs de 
la colonne 1. Le tableau suivant est 
alors obtenu : 


Visicalc Multiplan Magicalc VA.V 


Mémoire libre 15K  18K 64K 50K 
Temps de calcul 23” 190” 40° S0” 


On constate que le classement selon 
la vitesse de calcul reste le même. 
avec toutefois des rapports de vitesse 
différents. Îci, les différences de ui- 
tesse sont amplifiées, ce qui est nor- 
mal pour un tableau plus grand. 


Visicalc et VAU ont un chargement 
sensiblement plus long. car celui-ci 
requiert un recalcul complet. contrai- 
rement au cas de Multiplan. Le char- 
gement de VAV est sensiblement 
plus long. ainsi que l'appel de nom- 
breuses commandes. En effet. VAV 
ne réside pas tout entier en mémoire. 
ce qui a l'avantage de laisser à l'utili- 
sateur 70K. contrairement aux 35K 
de Multplan et aux 34K de Visicalc : 
seul Magicalc fait mieux avec 9OK. 
On peut donc utiliser avec VAV des 
tableaux deux fois plus importants. 
Cela se paye par la nécessité de gar- 
der la disquette programme dans le 
premier lecteur (il faut donc en avoir 
deux) et les va-et-vient ayant lieu lors 
des appels de commandes. 


Comparons à présent VAU à Multi- 
plan. plutôt qu'à son ancétre Visicalc, 
qui date franchement (ce qui a fait le 
succès de Magicalc, qui en est une 
amélioration sensible). Par rappoit à 
Mult plan, VAV apporte de nouvelles 
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Visicalc Advanced Version 


possibilités de formatage, des fonc- 
tions nouvelles et, surtout, la prépro- 
grammation de séquences de tou- 
ches. 


Formatage 


Comme dans Multiplan. le formatage 
comporte deux parties, f’une relative 
au fonnat proprement dit (le “code 
format” de Multiplan}). l'autre au ca- 
drage, deux domaines dans lesquels 
les options de VAV sont plus nom- 
breuses. Dans VAV, le format (F 
pour le fonnat et /A pour les attri- 
buts) sert aussi à définir le type d’in- 
formation autorisée, son cadrage 
dans la cellule (plus riche que pour 
Muitiplan) et le fait de cacher (/AH 
pour Hide) ou non son contenu. 
L'utilisateur peut définir des fonnats 
répétitifs qui seront alors appelés di- 
rectement avec ‘/F=x", où x est le 
code du caractère associé au format 
personnalisé à utiliser. Il v a 37 
commandes débutant par ‘/A” et 
neuf par ‘/F”. Les formats. comme 
les atbibuts, sont reproductibles sépa- 
rément du contenu des cellules. 


Fonctions 


Par rapport aux fonctions de Multi- 
plan, il manque dans VAUV les fonc- 
tions DELTA et NBITER liées au 
calcul itératif, et donc inutiles dans 
VAV) ECARTYPE. STXT, SIGNE. 
LIGNE et COLONNE. 

Les fonctions nouvelles sont principa- 
lement les fonctions financières, les 
fonctons de destion de dates et 
DOTPROD. Cette dernière fonction, 
introuvable dans les autres tableurs 
classiques (mème Lotus 1-2-3..), ef- 
fectue la somme des produits de 
deux groupes de valeurs : le produit 
scalaire. 

Les fonctions financières sont FV (va- 
leur future). PERIODS (calcul du 
nombre de périodes de rembourse- 
ment), PMT (mensualités à payer), et 
IRR (taux de rendement interne), en 
plus du désormais classique NPV (la 
valeur actuelle nette). 

il y à neuf fonctions de calcul de 
dates. permettant entre autres de cal- 
culer le nombre de jours entre deux 
dates. 


Préprogrammation 


On peut, à l'aide de “'K=”. pro- 
grammer des séquences de touches 
complètes. appelées simplement par 
"CtrlS x”. où x sera le code de 
commande de la séquence souhai- 
tée. Cette capacité de préprogram- 


Hervé Thiriez 


mer des traitements standards ne se 
trouve actuellement que dans Lotus 
1-2-3: elle n'est disponible dans 
aucun tableur actuel sur Apple Il. 
Cette préprogrammation permet de 
gagner beaucoup de temps lors de la 
réalisation de tableaux, en évitant les 
opérations répétitives. telles que l'in- 
sertion d'une colonne de séparation 
avec des ”!”. l'insertion d'une ligne 
de titrage avec les mois de l'année. 
ou la création d'une formule de tota- 
lisation en ligne puis sa répétition 
vers le bas. 

La préprogrammation permet aussi 
par exemple d’automatiser des opé- 
rations dans lesquelles il est impor- 
tant d'éviter les erreurs, telles que la 
lecture ou la sauvegarde partielle 
d’un tableau en format DEF. 


Limites de VAV 


VAV est inférieur à Multiplan au ni- 
veau de la consolidation”. du fené- 
trage et de l’utlisation de noms. Il ne 
peut, comme Multiplan, lier deux ou 
plusieurs tableaux de façon active. Il 
est limité à deux fenêtres, plus les 
titres, ce qui fait tout de même cinq 
fenêtres par rapport aux huit (les 
titres en prennent quatre) de Multi- 
plan. Il ne peut non plus utiliser des 
noms dans ses formules, pour définir 
par exemple une cellule de contribu- 
tion par ”’Px Vente - Px Achat”. 


Conclusion 


Comme je l'avais dit dans la conclu- 
sion de l'analyse de Magicaic, il est 
difficile de dire si un tableur est 
meilleur” qu'un autre; cela n’a pas 
beaucoup de sens. Finalement. VAU 
donne à l'utilisateur une plus grande 
capacité mémoire et des calculs plus 
rapides que ceux de Multiplan: sur 
ces points. il est par contre inférieur à 
Magicalc. Ses fonctions financières 
sont sensiblement plus riches. et il est 
le seul des tableurs sur Apple à offrir 
la préprogrammation de séquences 
de touches et la fonction DOTPROD. 
En compensation, pas d'utilisation de 
noms ni de liens externes facilitant la 
consolidation. En conclusion. ce pro- 
duit possède un excellent rapport 
perfonnance/prix. 


En ce qui concerne Multiplan, n'ou- 
blions pas la sortie (septembre 84) 
de la version 1.07, qui ajoute des 
fonctions financières (dont le taux de 
rendement interne), est compatible 
avec le //c et exploite les 64K de ia 
carte 80 colonnes étendue. Quand je 
pense que j'ai déjà plus de 10 ta- 
bleurs sur mon brave Apple il. D 
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Il était temps qu'un capitaliste 


REP ee 








fasse une révolution. 





N'apprenez plus à devenir une machine, Apple a inventé Macintosh. o 


® 





PEACHTREE, LA COMP 
UE C’EN EST PRES 





La comptabilité, c'est long, compliqué, 
fastidieux! 
Tout cela était vrai avant Mac Accounting. Avec 
Mac Accounting, le nouveau logiciel de comptabilité 
de Peachtree, finis les livres de caisse en deux exem- 
plaires, finis les bons de caisse, finis les carbones, 
terminées les mises à jour qui font perdre du temps. 
Mac Accounting est un programme comptable déve- 
loppéspécialement par Peachtree pourle MacIntosh. 
Et dans le domaine particulier de la comptabilité, 
la compétence de Peachtree n'est plus à preuver. 
Avec plus de 100.000 utilisateurs dans le monde 
entier, Peachtree possede une trés large expérience 
des besoins des petites et moyennes entreprises 
en matière de comptabilité. Spécialement étudié pour 
un utilisateur n'ayant aucune connaissance infor- 
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matique préalable, Mac Accounting est conçu pour 
être le plus proche des systèmes manuels. avec 
l'exactitude et la rapidité dessolutionsinformatiques. 
Un comptable reconnaît immédiatement les pages 
d'un jeurnal de caisse ou du Grand Livre: c'est 
exactement ce qu'il retrouvera sur l'écran du Mac 
Intosh lorsqu'il utilisera Mac Accounting. 

Mac Cash est le premier des deux program- 
mes qui constituent Mac Accounting. C'est un livre de 
caisse sur écran. Idéal pour les PME, ses carac- 
téristiques parlent d'elles-mêmes. La taille dujournal, 
le titre des colonnes, la période comptable et les 
formats menétaires sont définis par l'utilisateur. 
Mac Cash accepte jusqu'à cing taux de taxe, et 
huit colonnes d'analyse des prix hors-taxes, sa mise 
à jour est autematique au fur et à mesure de la 
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TA DEVIENT SI SIMPLE 
E UN PECHE. 





saisie des opérations, enfin l'utilisateur spécifie lui- 
mème les modèles des états de sortie et leur contenu. 
Bref, un outil simple et performant. 

Mac Ledger est le second module de Mac 
Accounting. c'est la partie comptabilité générale. 
Le format du journal est standard et peut être utilisé 
aussi bien pour les comptes fournisseurs que pour 
les comptes clients. L'utilisateur définit lui-même le 
format des fiches comptables qui se sélectionnent 
facilement à l'aide de la souris Mac Intosh. Les 
opérations saisies peuvent être analysées par type 
de produit, par territoire, par vendeur ou par toute 
autre variable définie par l'utilisateur... 
Les créances sont analysées sur trois périodes. 
ce qui facilite contrôle et réajustement. En résumé 
le complément indispensable de Mac Cash. 
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Bernier avantage: Mac Accounting a été 
conçu en français et peut être utilisé par n'importe 
quel utilisateur en moins de trente minutes. 

Le doute n'est plus permis : avec Mac Intosh et Mac 
Accounting la comptabilité devient si simple que c'est 
presque un péché. 


?eachtree est distribué par Logiciel PC: 113, bd Péreire 
17 Paris. Tél. : 763.62.88. 


en m 
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alliance 





DANS MAUX DE TETE 


avec les livres PS.. 





tomet 

bar Nicole Bréaud-Pouliquen 

Cet ouvrage présente les specificirés 
du Basic Applesoft à partir d'une 
description du matériel er dulogiciel 
du systeme Apple. Les cechniques 
de progremmaion, de composition 
et d'animation de dessins et graphi- 
ques colores y sonic expliquées à l'aide 
d'exemples illuswratifs et d'exercices 
résolus. 


128 pages - 80,00 FF 


LA gu'at 
tome 2 
bor Nicole Bréoud-Pouliquen 

Ce second volume de la pratique de 
l'Apple || est consacré au systeme 
d'exploitation disque, à là gestion 
des fichiers, à l'impression et aux 
imprimantes, à la carte horloge 
Appleclock. De nombreux exemples 
de programmes illustrent les lonc- 
tons et les commandes décntes. 


120 pages - 80,00 FF 


que de l'Apple M 


tome 3 

bar Nicole Brèaud-Pouliquen 

et Doniel-feon David 

Ce volume est une imutiation à la 
programmation en langage machine 
6502 dont lc jeu d'instructions est 
explique et utilisé. L'assembleur 
symbolique er ses logiciels cerinexes 
y sont décrits. L'interactton avec ie 
Basic et avec le système y est etudies. 


176 pages - 90,00 FF 


Par Nicole Breoud-Pouliquen 

Un livre de reférerxe. dans la collec- 
uon “Mémencos”, destinease trou- 
ver en permanence à cote de l'ordi- 
nateur Apple IL Son bur est l'acces 
rapide à l'information : syntaxe des 
commandes, codes caracteres, mes- 
sages d'erreurs. codes machine: 
adresses utiles, || comporte egale- 
ment un recueil de 25 “trucs” utiles. 
les “Comment... ?" 


144 pages - 100,00 FF 


L'Apple et es fichrie 

par Jocques Boisgontier 

Pour apprendre progressivement la 
programmation des applications uti- 
lisant les fichiers, l'ouvrage com- 
mence par une presentation concise 
et illustrée des cominandes du Sys- 
teme d'Exploitation Disque et des 
mstructions du Basic Applesolr. Les 
instructiens des fichiers séquenuiels 
ec à acces direct sonc ensuite décri- 
tes ainsi que leur utilisatior. Des 
methodes pratiques, souvent mal 
connues, monerent comment utiliser 
au rieux des fichiers à acces direct 
acces indexe. liste inverse Une 
vingtaine de programmes illustrent 
l'uulisation de ees techniques. 

le livre: 176 pages - 90,00 FF 
La disquette d'accompagne- 
ment: 195,00 FF 

Pour Apple Il, ll plus, lle - Dos 3.3 - 
version 48 K ou plus. 


Muttipiar 
par Herve Thiriez 

Multiptan est un progiciel qui per- 
met de gérer plusieurs vableaux 
simultanément: cet ouvrage sera 
pour les puxesseurs d'ordinateurs 
Apple Il Plus ou//e un veritable guide 
d'utilisation de Mulciplan grâce à des 
exemples progressifs er à de nom- 
breux cas d'application (gestion de 
portefeuilles, de copropriété, feuille 
de paie, mmpêts, tableaux de bord, 
etc.). 

Le livre : 216 pages - 100,00 FF 
La disquette d’accompagne- 
ment : 195,00 FF 

Pour Apple Il plus, lle + Dos 3.3 - 
version 64 K ou plus (Disquette 
maîtresse Multiplan indispensable). 


our Apple 1 plis 


por ferve Thiriez 

Apres une présentation progressive 
du modele Visieslc. l'ouvrage etudie 
de nombreux cas d'application 
feuille d'impôt, geston de copro- 
priete, paye. facturation. permet- 
tant d'introduire les différences 
instructions et astuces d'utilisation. 
Lelivre : 176 pages - 90,00 FF 
La disquette d’accompagne- 
ment: 195,00 FF 

Pour Apple Il, Il plus, lle - Dos 3.3 - 
version 48 K ou plus {Disquerce 
maitresse Visicalc indispensable). 


Pascal UCSD sur Apole } 
par Jacques Rouault et Patrice Girard 
L'ordinateur Apple Il. le langage 
Pascal et le systeme d'exploitation 
UCSD lorment à eux seuls le plus 
petit ensemble de micro-inlormau- 
que professionnelle Une premiere 
partte de cet ouvrage est consacrée 
à l'étude de ces trois elements. Sont 
erisuite abordés les programmes de 
mise en route. Enlinles types et ins- 
tructiens Pascal UCSD sont etudles 
en détail,ce qui permeutra au lecteur 
de se rendre compte de la richesse 
mais aussi de la facilité d'emploi du 
Pascal. 


232 pages - 110,00 FF 


Gestion de fichier 
et QC perrmreriques 
pour Appie ll / Pasca 

por Hervé Haut 

Ce livre propose un moyen rapide 
et facile pour gérer les fichiersec les 
périphériques sur Apple, De la ges- 
tion de bibliotheque à l'utihsation 
des peripheriques. l'auteur propose 
un ensemble de programmes utili- 
wmires, écrits en Pascal. Un exposé 
des techniques les plus élaborées 
permettra d'atteindre le niveau suf- 
fisane pour utiliser les methodes de 
programmation mises en œuvre 


176 pages - 95,00 FF 


A \ 
por Michel Kefl 

L'objet de cet ouvrage est d'aider le 
lecteur à faire un choix parmi les 
nombreux logiciels existants sur 
Apple. Quatre de ces logiciels sont 
sélectionnés ici : PFS et PFS/Repert 
- DB Master-CX BASE 200-DBASE 
IL Pour chacun on trouve une des- 
enption détaillée du logiciel lui-même 
ete ses procedures de mise en route, 
de création de fichier, de saisie des 
données, de maincenance et d'édi- 
tion. L'auteur termine cette ecude 
par l'expose des avantages et des 
inconvénients inhérents à chaque 


logiciel. 
144 pages - 85,00 FF 


Par Ted Lewis 

Microbook est un système de ges- 
uon de données et un outil de 
developpement de programmes 
conçu pourtransformer l'Apple Il en 


un oucil de classement de fichiers, 
de collecte et de recherche d'infor- 
mations, et de traitement de don- 
nées. C'est un ensemble de pro- 
grammes écrits en Pascal qui {ait de 
l'ordinateur un véritable biblio- 
thecaire. 

Les emplois de Microbook sont 
muluples : il peut être utilisé pour 
quasiment toutes les applications où 
le stockage et la recherche de don- 
nées est importante, Les program- 
mes écanc tres longs. il est recom- 
mande d'acheter egalerrent la dis- 
queite d'accompagnement, proposee 
en deux versions : l'une compilee, 
l'autre code source. 


Le livre : 248 pages - 135,00 FF 


par Ted Lewis 


Applell. ll plus,//e et/f avec système 
Pascal disquette simple face, compi- 
lee, donc non modifiable 


Prix : 195,00 FF 






ICROBOT 


por Ted Lewis 


Apple tl. Il plus. fe er /{. avec sys- 
terme Pascal. disquette 2 faces enre- 
gistrees. 


Prix : 295,00 FF 


Le systeme Pascal amsi que lesconsi- 
gnes d'utilisation des programmes 
contenus dans le livre sont indispen- 
sables. Cette disquette existe en 
deux versions : l'une, double 
face, destinée aux passionnes 
de ia programmation en Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
developper et etendre à leur 
gre les facultes du systeme. La 
seconde, compilee, simple face, 
destinee aux personnes qui ne 
connaissent pas la programma- 
tion en Pascal ou qui n'ont pas 
le temps de programmer etles- 
mêmes, et qui desirent utiliser 
directernent les multiples pos- 
sibilités de Microbook. 

Tous les programmes proposés dans 
le livre sont pré:sencs dans chacune 
des disquettes, exceptés les ordres 
pour emprimante. 
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Disquettes 


La Pierre Molle, Jeu réalisé par 
Bruno Rives et diffusé par ACI. 


Bruno Rives est le responsable de la 
ligne 68000 chez Apple Seedrin : ce 
n'est donc pas le premier venu: il a 
même signé des articles dans notre 
revue, c'est tout dire ! 

La Pierre Molle est un jeu d’adresse 
nécessitant aussi un certain sens stra- 
tégique. Vous tombez en panne avec 
votre soucoupe volante sur une pla- 
nète où se trouve heureusement un 
bidon de carburant. Votre travail 
consistera à aller chercher ce bidon 
en sautant sur des pierres. certaines 
dures, d'autres molles. 

Ces pierres tombent du ciel et vous 
devez les éviter lors de leur chute, 
puis les utiliser. Ce jeu est une excei- 
lente démonstration de la capacité 
d'apprentissage de l'être humain. Au 
début, vous n'allez franchement pas 
loin. un beau jour, vous devenez 
capitaine, puis commandant et, si 
vous devenez très fort, chevalier. 

Les effets visuels et sonores du jeu 
sont fort réussis: manifestement, 
l'Apple Il est dépassé sur ces deux 
plans. Nous avons regretté, après un 
certain nombre de parties, que l’on 
ne puisse rendre la chute des pierres 
aléatoires. Autre regret, l'impossibilité 
de stocker le meilleur score de plu- 
sieurs joueurs simultanément. Par 
contre, nous avons apprécié la possr- 
bilité de choisir entre deux vitesses 
de jeu. y compris en cours de partie. 
En conclusion, il s'agit là d'un jeu 
addictif qui m'a, à plusieurs reprises, 
forcé à me coucher plus tard que 
prévu. Heureusement, il est possible 
de couper le son à loisir. 


Eleugram. disquette mensuelle de 
jeu vendue par CompuSoft 


Nous avons été ahuris de voir que, 
dès le lancement effectf du Macin- 
tosh en France, on pouvait ainsi 
trouver une disquette mensuelle de 
jeu. 

Il s'agit d'une disquette comportant 
une vingtaine de problèmes logiques 
pour lesquels une grille d'analyse est 
proposée sur l'écran. C'est le type de 
problème et de grille que l’on trouve 
dans la revue Eleusis {la similitude 
des noms n’est pas due au hasard). 
Le programme fournit le cas échéant 
une assistance au Joueur Il est possi- 
ble de faire remplir par le pro- 
gramme toutes les cases directement 
impliquées” par les cases que vous 
noircissez à un moment donné 

Les problèmes sont variés, la présen- 
tation soignée et l'assistance au 
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Les essais du Macintosh 


joueur bien réglable. Mon seul regret, 
en tant que grand Joueur, est qu'il 
n'y ait sur la disquette qu'un seul 
type de jeu. même si cela correspond 
à de nombreux problèmes. À moins 
d'être un fana de jeux logiques de ce 
type. on préférera probablement 
acheter une disquette de temps en 
temps plutôt que de s'abonner 


Matériel 


Alpha Systèmes annonce des unités 
de disques durs pour le Macintosh : 
5 Mo sur cartouche amovible, 10 Mo 
fxe, 5 Mo fixe + 5 Mo amovible et 
10 Mo fixe + 5 Mo amovible. 
L'unité se connecte sur la sortie RS 
432 du Mac, qui devra donc choisir 
entre communiquer et accéder au 
disque. 


Enfin, ceux qui désirent avoir le pro- 
cesseur du Mac, le fameux 68000, 
sur leur Apple ÎI+ ou //e, seront 
comblés par la carte 68008 SAY- 
BROOK {avec mémoire de 128K) 
annoncée elle aussi par Alpha Systè- 
mes : 8 MHz (9.950 F) ou 12,5 MHz 
(12.950 F) ou enfin 14 MHz (14.950 
F}. Les programmes développés en 
Applesoft tourneront 10 à 30 fois 
plus vite avec l'interpréteur de la 
carte; le Pascal p-UCSD version IV 
étant lui aussi fourni en standard, on 
pourra tourner 5 à 20 fois plus vite 
en Pascal et développer des pro- 
grammes destinés aux IBM PC/XT, 
Rainbow 100... à partir du bon vieil 
Apple Il 


Bibliographie 


Macintosh/Multiplan/MacPaint. 
par Eddie Adamis. Cedic:Nathan. 
142 pages. 89 F 


Réaliser un livre d'initiation à Mac- 
Paint et à Multiplan sur le Macintosh 
correspond à une gageure. En effet. 
la particularité de ce matériel est de 
rendre aisé tout apprentissage : à 
quoi peut alors servir un livre d'initia- 
tion ? 

l est certain qu'un tel livre n'est pas 
indispensable. il facilitera cependant 
le travail du débutant, en l'amenant 
à ‘réaliser une démonstration‘ livre à 
la main. 


Les deux premiers tiers du livre sont 
consacrés à Multiplan La démonstra- 
tion est claire, mais on n'y trouvera 
ni astuces d'utilisation, ni exemples 
divers. C'est une bonne démonstra- 
tion. et rien de plus. Le reste de l'ou- 
vrage est une ‘démo de MacPaint. 

En conclusion, le livre est clair et fa- 


Hervé Thiriez 


cile d'accès. Ceci dit. 45 minutes de 
présentation par un utilisateur averti 
vous en apprendront autant. 


The Apple Macintosh Book. par 
Cary Lu. Microsoft Press. 385 pages, 
$18.95. 


Présentation : une couverture rouge 
traversée par un sigle “Mac”. en 
En plus foncé et en forme de graf- 
iti. 

Le seul reproche que lon puisse 
faire à ce livre, c'est qu'il ne soit pas 
encore disponible en français. Vendu 
par Microsoft (en France aussi), cet 
ouvrage est la bible de l'utilisateur du 
Mac. Après une brève section de 
présentation, l'auteur présente en 
115 pages tous les logiciels tournant 
déjà ou prévus à court terme (y 
compris le Basic Apple. différent du 
Basic Microsoft) Une troisième sec- 
ton analyse le matériel, élément par 
élément: on trouve dans cette partie 
(136 pages) un chapitre sur le dé- 
pannage, un sur l'entretien, et même 
un chapitre de comparaison avec 
l'iBM PC. La dernière partie de l'ou- 
vrage parle de communications, de la 
façon d'échanger des informations 
avec d'autres ordinateurs. montre 
comment photographier l'écran et 
enfin contient un chapitre technique 
plein de renseignements utiles. 

Le livre est bien présenté : la table 
des matières détaillée permet de re- 
trouver rapidement ce que Fon cher- 
che. Cary Lu. éditeur micro-informa- 
tique de High Technology. profite de 
son expérience pour parler des déve- 
loppements futurs du Macintosh 
comme de la micro-infermatique en 
général. Les sujets couverts sont mul- 
tiples : il y a même quatre pages 
s'adressant aux handicapés et leur 
montrant comment utiliser au mieux 
le Macintosh 

En conclusion. ce livre est un must 
pour ceux qui souhaitent connaître 
(et maîtriser) toutes les possibilités du 
Macintosh Feuilletez-le avant de 
l'acheter. vous serez convaincu 


Avis aux auteurs : nous ne man- 
quons pas, loin de là, de contribu- 
tions intéressantes pour la famille 
Apple // Par contre. vu la nouveauté 
du sujet, nous n'avons pas encore 
reçu de contributions pour le Macin- 
tosh. Faites paitager votre savoir-faire 
et envoyez-nous vos trucs et pro- 
grammes. 
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Comme des milliers 
d'utilisateurs en France, 


découvrez avec 


BABY MEMDOS 


l'univers fabuleux des possibilités de MEMDOS 


— un gestionnaire d'écran 
— un séquentiel indexé multiclé 


— un gestionnaire d'erreurs 
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- la notion de sous-programmes avec passage de paramètres 


et beaucoup plus... 
Pour Apple IL Île, lle et II. 


MEMDOS 
Pomme d'Or du Meilleur Logiciel Système 
décerné par APPLE 


FRANCI CONSEIL 


C 


Disquette et Documentation. 


BON DE COMMANDE A adresser à : MEMSOPFT S.A. : Meyerbeer - 06000 Nice 
[1 Contre remboursement 169 F + 30 F de port - Soit 199 F 


Je joins un chèque de 169 F + 15 F de port - Soit 184 F 
à l'ordre de Memsoft S.A. 
ON A SOCIÉTÉ Re ne ee einer 
ADRESSE RS et een ee ne De ea En idees etes Ua MEL Rae ue mes 
[1 Professionnel 
DÉNIBhÉTIQUES ER ne Aaron ee me dde ar coute ne 


Je suis Amateur 
Je possède un Apple type 


MacWrite vers 


Vous utlisez maintenant un Macin- 
tosh et Macwrite pour vos textes 
mais. comme nous {voir Pom's 10. 
“La communication avec l'Apple”), 
vous avez mis au point des applica- 
tions en WPL sur votre Apple //e. 
Les deux petits programmes écrits en 
Basic ici proposés vous permettent 
de transmettre vos textes depuis le 
Mac vers l'Apple /je, sans avoir re- 
cours à un logiciel de communication 
comme MacTerminal. 


Pour utiliser ces programmes. il vous 
faut. outre le Mac et l'Apple /'e, une 
carte super série connectée dans le 
slet 2. et une disquette MS-Basic. 
Pour relier les deux appareils. on 
branche le câble normalement des- 
tné à l'imprimante ImageWriter sur 
la carte super série. elle même ainsi 
CONÂQUrÉE ? —_—__ + 


Le texte écrit avec MacWrite doit être 
sauvegardé avec l'option ‘Le texte 





AppleWriter //e 


Pom's 


d'un lecteur de disquettes. sur la dis- 
quette où se trouve le programme 
émetteur”. Ensuite. tout est très 
simple : 


e le Macintosh vous demande le 
nom du fichier à transférer: 

le texte est transmis à l'Apple //e: 
le //e vous demande le nom sous 
lequel vous désirez conserver le fi- 
chier transmis, ainsi que le nu- 
méro du iecteur de destination: 

le texte est stocké sur disquette. 
prêt à être chargé avec AppleWri- 
ter. 


Note: dans certains cas. la carte 
super série annule le code 127 utilisé 
pour marquer la fin du fichier. Si cela 
se produit, il veus suffit d'envoyer 
manuellement” ce code pour que 
tout rendre dans l'ordre (LPRINT 
CHR$i127). 





seul” et. si vous ne disposez que TERMINRL D 
RECUP APPLE II 60 PRINT : INPUT "OK ? «0/...) "32%: IF 
2$ € > "0" THEN 50 
| à 100 PRINT : PRINT CHR$ (4)°OPEN"FIC#$", 

1 PRINT CHRS (4) "BLOAD TEST D"D: PRINT CHR$ (4)"WRITE"FIC$: 
5 TEXT : HOME es FOR J = 0 TO I - 1 
7 REM LES COMANDES CI-DESSOUS *‘F D*, 105 PRINT CHRS € PEEK CAD + J)); 

X E*, *E D° COMPORTENT UN CTRL-A | 197 NEXT : PRINT : PRINT CHR$ (4)"CLOS 

EN PREMIER CARACTERE, JUSTE APRE E 

S LE PREMIER * 

$ (4)"PR£O" 

10 HIMEM: 4095:AD = 4096 PAL REPARER SE RES 
11 PRINT CHR$ (4)"PR£2": PRINT *F D" 
12 PRINT °X E": PRINT "E D‘: PRINT C 

HR$ (4)"PR£O" 
20 PRINT ECHR$ (4)"INE£2" TEST 
30 CALL 768:2 = PEEK (6): IF Z = 127 T 

HEN 50 0300- 20 05 C2 29 7F 85 06 60 
40 POKE AD + 1,Z: PRINT CHR (2)3:1 = 

I + 1: GOTO 30 0300- 20 85 C2 JSR $C205 
50 PRINT : PRINT CHR$ (4)°IN£O": PRINT | 0303- 29 7F AND  £87F 

: PRINT : INPUT "FICHIER : "3;FIC 0305- 85 06 STA $O0é 

$: INPUT “DRIVE : *;D 0307- 60 RTS 


PROGRAMME MAC 


10 CLS:DEFINT A-Z:CALL MOVETO(LOO, 100 
JCALL TEXTFONT{O):WIDTH *LPTI:*. 
2SS:ANPUT “Fichier ? *F$:OPEN ‘l°,1, 
F$ 

201F ECOF(1} THEN) 230 

30 LINE I)PUTFI E$ 

40 L=<1EN(E#):1F L=0 THEN LPRINT: GOTO 20 

$0 FOR 1:1 TO LFOR D-0 TO 40:NEXT: 
A=ASC(MID$(E$ I,1)):1F A<%æ THEN 220 

60 :F A«127 THEN PRINT CHR$(A)::GOTO 
220 

70 IF A=143 THEN LPRINT CHR$(125);: 
GOTO 220 
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601F A=142 THEN LPRINT CHR$(i23):GOTO 
220 

90 1F A=136 THEN LPRINT CHR$(64):GOTO 
220 

100 IF A=157 THEN LPRINT CHR$(124):: 
GOTO220 

110 IF A»141 THEN LPRINT CHR$(®@): 
GOTO220 

120 IF A=:197 THEN LPRINT CHR${94): 
CHR$(97):GOTO220 

130 IF A=144 THEN LPRINT CHR$(94): 
CHR$(101);:GOTO 220 

140 IF- A=ï48 THEN LPRINT CHR$(94): 
CHR$(16);:GOTO 220 

150 IF A:1S3 THEN {PRINT CHR${94}: 


CHR${11:);:GOTO 220 

160 IF A:158 THER LPRINT CHR$(9%4): 
CHR#{117):GOTO 220 

170 IF A:138 THEN LPRINT CHR#(I28): 
CHR$(97)::GOTO 220 

180 IF A:14S THET) LPRINT CHR$(I28): 
CHR$(101)::GOTO 220 

190 IF A=140 THEN LPRINT CHR$(I28): 
CHR$#(105)::GOTO 220 

200 1F A:154 THEN LPRINT CHR$(128): 
CHR{1 11);:GOTO 220 

210 IF A+159 THEN LPRINT CHR$(128): 
CHR#(117); 

220 HEXT:LPRINT:GOTO 20 

23%0CLOSE*1 :LPRINT * *; CHR$(127) : END 





Les tokens du Basic Microsoft 


Jean-Luc Bazanegue 


Le terme ‘token” n'est certainement 
pas inconnu des lecteurs de Pom's. 
Cependant, pour ceux d’entre-vous 
qui nous rejoignent à l'occasion de 
ce numéro, il faut rappeler qu'un 
token est la représentation interne 
d'un mot-clé du Basic Ainsi en 
Basic Microsoft (et sur le Macintosh). 
l'instruction PRINT devient. lorsque 
vous appuvez sur la touche RETURN 
pour valider une ligne. un octet 
contenant la valeur 172 ($AC en 
hexadécimal). Les tokens permettent 


négligeable et facilitent le travail de 
l'interpréteur. 


Voici ce qui nous a poussé à recher- 
cher les tokens du Basic Microsoft . 
nous disposions d'un Mac depuis 
quelques temps, mais cet ordinateur 
sans langage de programmation res- 
semblait étrangement à un presse- 
purée sans pommes de terre. nous 
l'avions donc quelque peu délaissé. 
Et puis, un matin. nous vîmes arriver 
une disquette contenant le Basic. 


un peu de sang à la bête (au Mac 
bien sûr. }. Malheureusement. la dis- 
quette en question nous est parve- 
nue sans documentation pour 
connaître la liste des mots-clé de ce 
langage. il fallait trouver la table des 
tokens. 

Nous remercions ceux qui se sont 
jetés sur leurs photocopieuses afin de 
nous envoyer une copie de leur do- 
cumentation. mais cela est inutile 

depuis que nous avons établie la liste 
jointe. Microsoft nous a fait parvenir 











un gain de place en mémoire non Voilà qui était de nature à redonner les précieux documents. E 
ABS #30 128 £P $90 144 MERGE $F8 $9E 243 158 SAVE $F8 $AB 248 171 
ALL $F9 $FF 249 255 FIELD $51 145 MID$ $As 165 SETCURSOR $FB $FD 251 253 
AND $Fi 241 FILES $F8 $9$ 248 148 MKD$ $A6 166 SGN $84 180 
APPEND $e9 $FE 249 254 FILLARC SFB $DS 251 216 MKt$ $A? 167 SHO WCURSOR $FB $FB 25: 251 
AS $F9 $FD 249 253 FILLOV Ai. $FB $E2 231 226 MKS$ $A8 168 SHO WPEN $FB $F8 251 248 
ASC $8i 128 FELLRECT $FB $E7 251 231 MOD $F6é 246 SIN $Bs 181 
ATN $82 130 FiLLROUNDRECT $FB $DD 251 22t MOUSE $F8 $BS 248 184 SPACES $B6 182 
AUTO $rs $80 248 128 FIX $92 146 MOVE $FB $Fi 251 241 sc $F9 $FA 249 250 
BACKPAT $FB $FF 251 255 FN $93 147 MOYETO $FB $F2 251 242 sQR $B? 183 
BASE SFS $FC 249 252 FOR $94 148 NAME SF8 $9F 248 159 STEP $P9 $F9 249 249 
BEEP $F8 $B5 243 18: FRAMEARC $FB $DC 251 220 NEW $F8 $AO 248 160 STOP $F8 $AD 248 173 
CALL $83 131 FRAMEOVAL $FB $E6 251 230 NETT $A9 169 STRS $8s 184 
œ& $84 132 PRAMERECT SFB $EB 251 235 NOT $E7 231 STRINGS $B9 185 
CHAIN SF8 $8i 248 129  FRAMERDUNDRECT  $FB $EI 251 225 OBSCUR£CURSOR $FB$FA 251 250 SWAP $F8 $AE 248 174 
CHR$ ts 133 FRE $F8 $95 248 149 OCT$ $F8 $Ai 248 161 STSTEM $FS $AF 248 175 
CINT $$6 134 GET $ss 149 ON $AA 170 TAB $F9 $F8 249 248 
CIRCLE $F8 $B6 248 182  GETPEN $FB $F7 251 247 DPEN $AB 171 TAN $BA 186 
CLEAR $F8 $82 248 (30  GOSUB $96 150 OPTION SSFS $A2 248 162 TEXTFACE $FB $EE 251 238 
OS $37 +35 GOTO $97 15€ OR $F2 242 TEXNTFONT SFB $EF 25: 239 
cs $F8 $83 249 131 HEX$ $F8 $96 248 150 OUTPUT $F9 $FB 249 251 TEXTMODE $FB $ED 251 237 
COMMON $ss 136 HIDECURSOR $FB $FC 251 252 PAINTARC $FB $DB 251 219 JEXTSIZE $FB $EC 251 236 
CONT $FS $84 248 132  HIDEPEN $FB $F9 251 249 PAINTOVAL. $FB $ES 251 229 THEN $E6 236 
cos $s9 13? F $9s 152 PAINTRECT $FB $EA 251 234 TIME $F3 $BO 248 176 
CSNG $F8 485 248 133 IMP $F5 245 PAINTROUNDRECT  $FB $EO 251 224 TIMEA $F8 $BD 248 189 
cvD $8A 138 INITCURSOR $FB $FE 251 254 PEEK SES $A3 248 163 T $6s 229 
CyI $88 139 INKEYS $s9 153 PENMODE $FB $F5 251 245 TROFF $F8 $B2 248 178 
cvs $sc 140 INPUT $9A 154 FENNDRMAL $FB $F3 251 243 TRON $FS $BI 248 177 
DATA $aD 144 INSTR $F8 $97 248 151 PENPAT $PB $F4 251 244 USING $E4 228 
DATES $FS $86 248 134 INT $9B 155 PENSIZE $FB $F6 251 246 USR $F9 $F? 249 247 
DEF $F8 $8B 248 139 INVERT ARC $FB $09 251 257 POINT $F8 $B9 248 145 VAL $Bc 188 
DEÉFDEL $F8 $89 248 137 INVERTOVAL $FB $E3 251 227 POKE $F8 $A4 243 164 VARPTR $F8 $B3 248 179 
DEFINT $Fs #87 248 135  INVERTRECT $FB fES 251 232 POS $F8 SAS 248 165 WAIT $F9 $F6 249 246 
DEFSNG $F8 $88 248 136  INVERTROUNDRECT $FB $DE 251 222 PRESET SF8 SBA 248 186 WEND $sBD 189 
DEFSTR SF8 $8A 248 138 Kill $F8 $98 248 152 PRINT $AC 172 WILE $BE 190 
DELETE $F8 $8C 248 140  LCOPY $F8 $B7 248 183 PSET $F8 $BB 248 187 WiDTH $F8 $B4 248 180 
DIM $F8 $8D 248 j4l LET$ $9c 156 PTAB $FB$D7 25! 215 WRITE $er 191 
DIF $F8 $SE 248 142  LEN $90 157 PUT $AD 173 XOR $E3 243 
ESS $8E 142 CET $9E 158 RANDOMIZE $F8 $A6 248 166 + (plus) $EC 236 
EN9 $F8 $8F 248 143  LiNE $9F 159 READ $AE 174 - (moine) $ED 237 
EOF $8F 143 LINETO $FB $FG 251 240 REM $AF 175 * (astérlaque) $£E 238 
EQV $F4 244  LiST $F8 $99 248 153 RENUM $F8 $A7 248 167 / $EF 239 
ERASE $FS $90 248 144  LLIST $FS $SA 248 154 RESEY $F8 $BC 248 184 * (puisvancel $Fo 240 
ERASEARC $FB$DA 25: 218 LOAD $F8 $9B 248 155 RESTDRE $FS $AS 243 168 \ $F7 247 
ERASEOYAL $FB $E4 251 228 LOC $AI 161 RESUME $F8 $A9 248 169 (xportrophe) $Es 232 
ERASERECT $FB $E9 251 233 LOF $A2 162 RETURN $Bo 176 ; $Es 233 
ERASEROUNDRECT  $FB $DF 251 223 LOG $A3 163 RIGHTS $B! 17? : SEA 234 
ERL $F8 $9I 248 145  LPOS $F8 $9C 248 156 RND $B2 178 < $E3 235 
ERR $FS $93 248 147  LPRINT $F8 $9D 248 157 SET $B3 179 
ERAOR $F8 $92 248 146  LSET $AS 164 RUN SF8$AA 248 170 
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Gestion de masques améliorée 


Pom's déclare que si, au cours d'une 
année, un seul des programmes pré- 
sentés répond aux besoins du lec- 
teur. il justifie à lui seul l'abonnement 
à la revue. Dans le Pom s 7. Gérard 
Michel nous à proposé un pro- 
gramme pour créer et modifier rapi- 
dement, à partir de masques, des 
écrans texte. Pour ceux qui, comme 
moi. accordent une importance pri- 
mordiale à l'ergonomie des program- 
mes. cet utilitaire tombe dans la caté- 
gorie des programmes qui. à eux 
seuls, … 


Pour tout programme dont on fait 
une utilisation intensive. il arrive vite 
un moment où l'on éprouve les limi- 
tes du logiciel et où l’on souhaite les 
dépasser. Savoir ce qu'il faut modi- 
fier est une chose, le réaliser en est 
une autre. Aussi est-ce Jacques Tran- 
Van qui. par sa parfaite maîtrise de 
l'assembleur, a pu effectuer les modi- 
fications aboutissant à ce GESMASK 
MODIFIE que nous vous proposons. 


Mode d'utilisation 


Pour l'utiliser. il faut mettre sur la 
même disquette les programmes 
GESMASK MODPFIE, INPUT. 
HCT.OBJ. MOVESCREEN, GES- 
MASK 1, GESMASK 2 et BLOAD- 
TEXT$9200. ce dernier programme 
permettant de supprimer le bruit des 
diives au chargement des écrans. 


L'ensemble fonctionne parfaitement 
bien avec PLE (voir Poms 1} si vous 
prenez soin. durant la phase de 
conception de votre programme, de 
positionner HIMEM à 35840. Exem- 
ple : 


96 REM Dans votre version défini- 
tve, HIMEM: 37376 


97  HIMEM 35840: PRINT 
CHR$(4) "BL@AD BLOAD- 
TEXT$9200" 


98 POKE 782.136 : CALL 768 

99 REM Remettre M$—9200 dans la 
version définit. ve 

190 D$=CHR$(4) : M$="A$8C00" 


De cette façon, si au cours du dérou- 
lement de votre programme vous 
avez à nouveau besoin du dernier 
masque BLOADé, il sera inutile de 
demander à votre programme de le 
recharger: il suffira d'un simple 
CALL 768 pour le rappeler à l'écran. 


Nouvelles commandes 


Les commandes de GESMASK MO- 
DIFIE ci-dessous s'obtiennent en 
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UN S 0 D NO UIR WU N = @ 0 ON OUI RU) ND 


PONINI ND 1e 0e 00e Du De pu Du Den D pen 


*des des caractires condensts - marge pour 


Jacques Tran-Van 
Maurice Schapiro 


l'imprimante 


DD D D DE DE D D DE D DE D DE DU D DE D DE DE D DE DU DE DU DE DU D D D D DE D D DE D DE D DE DE D D D D D DE DE D D D D D DE D DE D D 3 


MASK PO4S 7 


#* 
* 
#* 
* 
#* 
* 
* 


ORG 


STOPFLG 
CARTKRE 


(‘] 
[5 
UNI REERUNENRNnNN 


# Entr£e 
* de 1° 


INIT 


{cran 
JSR 


amtliort 
et S 


ar TRAN-UVAN jacques 


le 15/12/83 


$7200 


principale du programme 


HOME 


# 
# 
#% 
HAPIRO maurice : 
# 
# 


DD DE D DE DE D DE DE D DE D DE DE D DE D DE D DE DE D DE D DE DE DU D DE D DE D DE D D DE D DE D DE DE D DE D DE D DE D DE D D D 3 3 


$Primitivement $927C 


Drapeau d’arr®t du curseur 
Drapeau PNJERSE/NOR AL FLASH 
Position de dtpart du d{cal age 
Tampon de caractère 

Drapeau > 0 range, sinon {change 
iDrapeau > DO insjre, < O0 efface 
ÿ Sauve garde de la position vert. 
$Pointeur de d{placement 
iPosition hor. curseur 

: vert. 

Adresse 1re colonne 


;Tampon d'’{cran -$400 
alcul de l’adresse de 
voi d’une <- 
place curseur en CV 


fin de ligne(A,Y dtt.) 
de caractre 
d’un caractire 


C ligne 
E 9 

o 

3E 

E 

;S 


avec effacement 


# Autre entr£e du programme sans effacement de l’(cran 
* (pour modification) 


DEBUT 


TESTPOS 


# Passe 9 la 
NEXTLIN INC 
LD 


STA 
BEQ 


#+ Lecture de 


#0 
STOPFLG 
CART PE 
CV 

#24 
TESTPOS 
HO 
EÉrcmo 
CH 


#W$28 
GETCMD 


sinitialise le drapeau 


s5Dernidre ligne ? 


sRetour 1)re col/i1dre ligne 


$Dernidre col. de la ligne ? 


ligne suivante 


CU 
#0 


CH 
DEBUT 


la commande 


$Passer 9 1)9re col, ligne suivante 


#* Autre entre du programme (pour consultation) 


ÿPositionne le curseur 
iEntr Ce caractire 


Crochet fermant 


sReturn ? 
;A la ligne ‘ 


sCTRE-SHIFT-P? 


;CTRL-S ? 
ni 


GETCMD JSR VUTAB 
JSR RDKEY 
CMP #°-* 
BNE RETURN 
LDA #$DB 

RE TURN CMP 4589 
BEQ NEXTLIN 

*#+ Sortie du programme 

EXITPEM CMP  #580 
BNE  NOMOVE 
RTS 

#+ Immobilisation du curseur 

NOMIOVE CMP 4593 
BNE DOUN 
STA  STOPFLG 
BEQ GEFTCMD 

#*#* Curseur une 


ligne plus bas 





mode CTRL : on maintient la touche 95 
CTRL enfoncée. tout en appuyant LS 
sur la lettre de la commande. 98 
] : inverse be 

: flash 

: normal 

- monter 

: descendre 


: décalage à droite 

: décalage à gauche 

: répétition verticale 

: insertion dans la ligne 

- sort du mode insertion 

: insertion d'une ligne vide 

: suppression d’une ligne 

: sauvegarde du masque dans un 
buffer 

X : rappel du masque placé dans le 
buffer 

E: efface un caractère à partir du 
curseur 

K : efface la ligne à partir du curseur 
S: empêche le curseur de bouger 
après la frappe d'un caractère. On 
sort de ce mode avec les f.èches gau- 
che et droite 


La touche RETURN renvoie le cur- 
seur au début de la ligne suivante. 
SHIFT-M engendre un crochet ou- 
vrant. et SHIFT-N un crochet fer- 
mant. 


D'TON<K<OOUNEZN 


Sauvegarde du masque 


CTRL-SHIFT-P pose la question du 
nom à donner au masque. Quatre 
réponses sont possibles : 


e RETURN : le masque est enregis- 
tré sur la disquette sous le nom 
que lon a donné dans le menu 
principal: 

un nom : ce nom est alors attribué 
au masque sauvegardé sur la dis- 
quette. On peut ainsi mémoriser 
des variantes du masque appelé 
dans le menu principal; 

# (dièse): annule le masque en 
cours et revient au menu principal 
(le masque n’est alors pas sauve- 
gardé); 

%: affiche le catalogue de la dis- 
quette puis repose la question. 


À titre de démonstration, vous trou- 
verez le petit programme en Basic 
FRANCE. qui apprendra à vos en- 
fants à situer les départements sur la 
carte de France. Pour fonctionner. il 
requiert le masque CARTE. L'utilisa- 
tion de ce programme est simple et 
ne nécessite aucun commentaire. 
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m 
Routine INPUT 
*9000.9089 
9000- À9 80 Àé 07 9D 11 03 CA 
9008- 10 FA A2 00 8é Dé 20 OC 
9010- FD C9 8D FG 72 E4 07 90 
9018- 0A C9 88 F0 28 20 DD F8 
9020- 4C 0E 90 C9 9B DO 09 ED 
9028- 00 DD 05 À9 09 85 Dé 460 0 


DOUN CMP 


BNE 
INC 
BNE 
# Avance le c 


FLECHDR 


EXFLECH 
* Recule 
BACK 


le c 
CMP 
BNE 


* Curseur une 
UP 


* Ecriture en 
INVERSE CMP 

BNE 
LDA 
STA 
JMP 
* Ecriture en 


FLASH CMP 
BEQ 


MODE 


* Ecriture en 
NORMAL CMP 
BN 
L 
8EQ 
* Duplication 
DUPLIC 


RELAI 


NOINC 
* Effacement 
EOL 


#*# D{placement 


#$7A ;CTRL-2 ? 
FLECHDR ; | 
CU Ligne suivante 
DEBUT 
urseur d’un caract}re 
#$95S DER Enr: 
BACK 
STOPFLG Avance normale du curseur 
CH jCaractdre suivant 
TESTP8S 
urseur d’un caractdre 
#$B88 DC Er 
UP 
S sRecui du curseur 
STOPFiEG sAvance normale du curseur 
GETCMDC 
ligne plus haut 
#297 3 CTRL-W ? 
IMVERSE 
CU sLigne prc(dente 
GETCMD ;Si CU>=0 on positionne en CU 
: ;On saute & ta dernidre liQne 
GETCMD 
inverse 
#$99 3CTRL-I ? 
Aa 
CARTYPE 3Flag INVERSE 
GETCMD 
flash 
#S86 :CTRL- 
MODE Flag < O FLASH 
normal 
MAÉ TN 
#0 Flag NORMAL 
MODE 
du caractdre une ligne plus bas 
LES sCTRL=-V ? 
EOL 
CV 
STOPFLG sAvance normale du curseur 
#23 $Dernidre ligne —> on ignore 
GETCMD 
PRSRECe $Calcuil adresse base ligne CU 
CBASL) ,Y 5Charge le car. sous le curseur 
CV Ligne sutvante 
OUTPUT jAffiche le caractire 
CH sRecul du curseur 
EXFLECH Retour en TESTPOS 
de la fin de la ligne 
WSBB 3CTRL-K ? 
RIGHT 
CLREOL 5Efface 1a fin de la ligne 
RELAI sRetour en GETCMD 


de la fin de 1’{cran d’un caractère 


*# vers la droite 


RIGHT 


DROITE 


# D{placement 


#$84 3CTRL-D ? 
LEFT 
RE sSauve la position verticale 
# 
SAUCAR 2 
CH Position horizontale 
DEB 
VTAB ; : 
LI GNEDR 5D{calle la ligne d droite 
#o 
CV sLigne suivante 
CV 
#24 $Dernidre ligne 
DROITE Re: : 
e 3RCcupdre la position verticale 
RELAI 3JMP GETCMD 


de la fin de 1’{cran d’un caractire 


#*# vers la gauche 


LEFT 


GAUCHE 


3; CTRL-G ? 
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206 BCC EXLEFT 
207 LDY #0 
RE 
L GA 3DCcalle la ligne 2 gauche 

210 DEC ; " L 
211 BPL GAUCHE 
212 EXLEFT LDA  CUSAU 

213 STA CU 

25 EXGAUCH  JMP  GETCMO 
231$ # Insertion d’un caractdàre dans une ligne 

218 INSERER CMP #$99 > CTRL-Y 

219 BNE  OELETE 

220 LOOPINS JSR ROKEY 

221 CM 83 3CTRL-C ? 

222 BEQ  EXGAUCH 

223 LD CH 

224 STY DEB 

225 CPY #39 

226 BCC NOLAST 

227 STA  STOPFLG 30n n’avance pas si dernier car, 
228 JSR OUT 

230 BP LOUPINS 

231 NOLAST PHA 

232 JSR LIGNEDR 5D(calle la ligne vers la droite 
2933 PLA 

234 JS OUT 

235 BPL  LOOPINS sBoucle 

296 

237 x Effacement d’un caractdre de la ligne 

en #% et d(callage de Ja fin vers la gauche 

240 DELETE CHP  #$85 ;CTRL-E ? 

241 BNE ECHANGE 

242 LDA #" ” 

243 STA  SAUCAR 

244 LOY CH 

245 JSR LIGNEGA 

22 BCC BAK 

248 # Echange de J’{cran actuel et de celui 

use æ Sauv( dans le tampon 

251 ECHANGE CMP #$98 3CTRL-X ? 

252 8SNE RANGER 

253 STA  SAUFLAG 3Flag < 0 

234 DOIT LDX #23 

255 

256 NEXTLG TXA 

257 JSR BASCALC 

258 LDA  BASL 

239 STA PTR 

260 CLC 

2éi LD8  BASH 

262 AOC  #>BUFFER 

263 STA PTR+1 

264 LDY #39 

263 LOOPCHG LDA £BASL),Y 

266 BIT  SAUFLAG 

267 BPL NOTCHANG 

268 PHA 

269 LDA  CPTR),Y 

270 STA  (B8ASL) ,Y 

271 PLA 

272 NOTCHANG STA  {PTR),Y 

273 DEY 

274 BPL  100PCHG 

275 DEX 

276 BPL NEXTLG 

277 BAK 

278 

220 # Sauvegarde l”’{cran actuel dans un tampon 
281 RANGER CHP  ##$92 ;$CTRL-R ? 

282 BNE LININSRT 

283 LSR  SAUVFLAG , 

Fes SPL DOIT 3Se branche toujours 
286 *# Insertion d’une ligne blanche et d{(cal]lage 
Ca # de la fin de F’{cran d’une ligne vers Île bas 
289 LININSRT CMP  #$BF 3CTRL-0 ? 

290 8NE LINEKILL 

291 LOX #22 

292 STX  SENSFLG 15129 > O0 => vers le bas 
293 OPL JSR MOVELINE 3D(place la ligne 
294 DEX 

295 DEX 

296 BMI BLANKLIN 

297 CPX CU 

298 BCS DPL 

299 BLANKLIN JSR BLANK jEfface la ligne 

ni BMI  BAK 

302 # Effacement d’une jigne et d{callage de la fin 
202 # de ]’{cran d’une Jigne vers le haut 

305 LINEKILL CHP ##$90 $CTRL-P ? 

306 BNE  DSPEAR 

07 STA  SENSFLG 3Flag < 0 =» vers le haut 
08 LOX CU 

309 NXTPRO INX 

310 CPX #H24 

311 BNE  KILLNXT 

312 LOf #23 

3193 JSR  BLANKI jEfface la dernidre ligne 
314 BMI  BLANKLIN $Toujours 

= KI LELNXT EU MOWYEL INE s0{place la ligne 


9030- C9 AC DO 05 A9 AE 4C 7D 
9038- 90 C9 AE F0 40 C9 88 DO 
9040- 0À E0 00 F0 0é CA Cé 24 
9048- 4C 0E 90 C9 95 DO OC AS 
9050- 25 20 CI FB A4 24 B1 2B 
9058- 4C 7D 90 C9 AO 90 AF C9 
9060- DB BO AB A4 08 CO 01 FO 
9068- OC C9 AF 80 04 C9 AD DO 
9070- 9D C9 BA 80 99 ED 00 DO 
9078- 04 C9 A2 FO 91 20 ED FD 
9080- 9D 11 03 E8 4C 0E 90 84 
9088- 09 60 


Routine MOVESCREEN 


#x20C.2F0 

020C- A9 00 85 FC 

02E0- 85 FE A8 AD FE 02 85 FF 
02E8- AD FF 02 85 FD A2 04 B1 
02F0- FE 91 FC C8 DO F9 Eé FO 
02FB- Eé FF CA D0 F2 60 


Routine HCT.OBJ 


*#9465,9496 


9468- 25 A0 00 20 CI FB 81 28 
9470- C9 40 80 OD C9 20 80 0Oé 
9478- 18 69 CO 4C 81 94 18 69 
9480- 80 20 ED FD C8 CO 28 DO 
EO FO Eé 25 





Routine BLOADTEXT 
59200 


#300.310 


0300- A2 17 8A 20 
0308- 85 FE 18 AS 
0310- FF A0 27 B1 
0318- 10 F9 CA 10 


Ci F8 AS 28 
29 69 BE 85 
FE 91 28 88 
ES 60 


Récapitulation MASK 


#9200.941E 


© 
N 
N 
© 
! 
N 
EN 
n 
© 
m 
où 
N 
© 
DHONNO=O© 
BUONNUMmoo 
D 
Ÿ 
=) 
© 
œ 
a 











317 BPL  NXTPRO Toujours 9280- 85 09 A4 24 84 08 20 22 
319 : 9288- FC 20 BC 93 AO 00 Eé 25 
319 *% Affichage du caractère 92C0- ÀS 25 C9 18 90 EE 68 85 
320 92C8- 25 80 C1 C9 87 DO 29 A9 
321 DSPCAR  JSR OUT 92D0- A0 85 09 AS 25 85 19 A9 
322 BAK JMP  TESTPOS 92D8- 17 85 25 A4 24 AS 25 CS 
32 2E0- 19 F0 04 90 OC A0 O0 20 
324 DUT LDX CARTYPE 92E8- 22 FC 20 Dé 93 Cé 25 10 
325 À 92F0- EA AS 19 85 25 4C 23 92 
326 # CARTYPE=I =} inverse CARTYPE=0 =) normal 92F8- C9 99 DO 22 20 OC FD C9 
327 # CARTYPE < O =) fiash 9300- 83 F0 F2 Ad 24 84 08 C0 
328 9308- 27 90 09 85 06 20 9C 93 
329 8EQ OUTPUT sNormal 9310- 46 06 10 E8 48 20 BC 93 
330 BMI CLIGNO 9318- 68 20 9C 93 10 DE C9 85 
331 AND  #$3F inverse 9320- DO 08 A9 A0 85 09 A4 24 
332 ; 9328- 20 Dé 93 90 6C C9 98 DO 
333 * Affichage du caractdre et avance curseur 9330- 2B 85 09 A2 17 BA 20 Ci 
334 9338- FB AS 28 85 FE 18 AS 29 
335 OÙTPUT  PHA 3Sauve le caractre 9340- 69 80 85 FF A0 27 81 28 
Ci 336 LDA € 9348- 24 09 10 06 48 81 FE 91 
+ 337 JSR BASCALC 9350- 26 68 91 FE 88 10 EF CA 
ET. 338 LDY CH 9358- 10 DB 30 30 C9 92 DO 04 
sx 339 PLA sRcupdre le caractire 9360- 46 09 10 CF C9 8F DO 14 
#2 340 STA  (BASL),Y 9368- A2 16 86 09 20 F1 93 CA 
me 341 BIT STOPFLO 9370- CA 30 04 E4 25 80 F5 20 
Été 342 BMI RETOUR 9378- 12 94 30 1D C9 90 D0 16 
Fa 343 INC CH 9380- 85 09 A6 25 EB8 E0 18 DO 
4 344 RETOUR RTS 9388- 07 A9 17 20 14 94 30 E7 
3e 345 9390- 20 F1 93 E8 10 EE 20 9C 
#4 346 CLIGNO AND ##3F ;En flash 9398- 93 4C 15 92 Àé 07 FO 04 
EH 347 ORA #$40 93A0- 30 14 29 3F 48 ÀS 25 20 
£e 348 BNE  OUTPUT 93A8- C1 F8 A4 24 68 91 28 24 
# 349 ; ; 9380- 06 30 02 Eé 24 60 29 3F 
Fi 330 * Décallage de 1a ligne d’un caractire vers la droite 93B88- 09 40 DO E8 A0 27 Bt 28 
… 351 93C0- 48 88 30 04 C4 08 80 Fé 
Minas 200 28 90 Fa 25 8 20 64 dû 
Mi 354 PUSHDR LDA (BASL),Y jSauve les caractdres sur la pile | 2500 #7 20 40 9 C0 29 00 FO 
355 PHR 93E0- A5 09 88 91 28 68 88 30 
356 DEY 93E8- 04 C4 08 80 Fé 85 09 18 
357 BMI DR 93F0- 60 BA 20 Cf FB AO 27 BI 
358 CPY DEB 93F8- 28 48 88 10 FA 24 09 10 
359 8CS  PUSHDR 9400- 03 CA 10 01 E8 BA 20 Ci 
DR Le SAVCAR 9408- FB CB s8 91 28 co 27 20 
362 PULIDR STA CBASL),Y jD(calle vers la droite LE NE LE Ole 
364 INY 
365 CPY #40 
185 Sa EADERR 
397 LDY #39 
en RTS 398 LOOP1 LDA (BASL),Y 
370 # D£callage de la ligne d’un rang vers là gauche 300 ES 
371 401 SPL LOOPi 
325 LIGNEGA STY DEB 402 BIT SENSFLG 
374 PUSHGA LA  (BASL),Y 20 AR 
375 Es 405 BPL  CENTMOV 
379 CPY #40 406 INSRT iux 
407 CONTMOV A 
378 BCC PUSHGA 408 : JSR  BASCALC 
379 LDA  SAVCAR 409 LOOP 2 INY 
380 DEY 410 PLA 
L>,Y 
382 PULLGA  STA (BASL),Y 1 Eire 558 
383 PLA 413 BCC LOOP2 
384 DEY $ 414 RTS 
25 mL gran ii 
387 CS PULLGA US % Effacement de ta tigne 
388 STGPULL STA SAVCAR 418 8LANK DA €V 
389 CLC 419 BLANKI SR  BASCALC 
391 je 420 LDA #" ” 
392 *x Déplacement d’une ligne vers le haut 422 FNENSS DEŸ Sr 
393 # ou vers le bas 423 BPL BKLOOP 
394 424 RTS 
395 MOVELINE TXA :No de la ligne 425 
396 JSR BASCALC 454 LST OFF 
GESMASK MODIFIE 80 REM 
90 REM ROUTINE D'’INPUT 
10 HIMEM: 32768: REM $8000 100 REM 
15 MOQUE = 732:DP = 766:BT = 767 149 UTAB V: HTAB H: PRINT LEFT$S (P0O$,L 
20 D = CHR$ (4):D1$ = CHR$ (132 + DS: O0)" ‘“;: VTAB LV: HTAB H: IF ME = 
PRINT D$"BLOAD INPUT": PRINT D$" 2 GR X = 1 THEN PRINT ZY$€Li): 1 
BLOAD MASK'": PRINT D$"BLOAD HCT.0 F BY = 8 THEN 168 
BJ": PRINT Di1$”"BLOAD MOVESCREEN" 150 UTAB LV: POKE 8,TY: POKE 36,H - 1: P 
30 (ONERR GOTO 9000 OKE 7,LO: CALL 36864 
40 GOTO 300 154 LC = PEEK (9):E = PEEK (6): IF E = 
70 VTAB 22: HTAB 1: INVERSE : PRINT 2M$ $ THEN RETURN 
3: NORMAL : INPUT * 7 *5,2$: UTAB 156 722$ = "°°: PRINT SPC{ L@é - LE): IF EL 
22: CALL - 868:2$ = LEFT$S <2$,1 C = O THEN 168 
}s IF 2$ = “0" OR 25 = "N" THEN 158 FOR 22 = 1 TO LC:2 = PEEK (784 + 2 
RETURN 2) —- 128:22$ = 222$ + CHR$ (2): N 
71 GOTO 70 EXT 
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programmer 
#  uUnordinateur est 
[] devenu pour vous 

un toisir, un plaisir... 

une passion, sachez que LIST a été créé 

pour vous. LIST vous aide à tirer davantage 

de votre matériel, à vous perfectionner 

dans la concePtion des programmes 

qui “tourneront” sur votre machine 

LIST vous initie aux langages informatiques 

et Sélectionne les meilleurs livres pour 

progresser. LIST vous informe de l'actualité 








et vous fournit trucs, astuces et idées ee, 
pur mieux programmer... | Ë so à 
Pour être sûr de ne rater aucun numéro à retourner à LIST ï 
et pour reCevoir LIST chez vous, (sertie Momo 
abonnez-vous ! 5, place du Coionel-Fabien, 
75491 Paris Cedex 19 
Nom: 
Adresse :_. 





E PL AISIR DE Ville: - 


L ER Code postal:1i il 1} Pays: S 
GRAMM Veuillez m'abonner pour 10 numéros au prix 

PRO : urnaux avantageux de 160 F” au lieu de 200F. Je fais ainsi 
e une économie de 40 F sur le prix de vente au numér 


vot Je joins mon réglement indispensable libellé 
20 F chez à l'ordre de LIST. 


* Belgique : 1330 FB: Suisse: 50 FS: Canada: 30 $C; 
autres pays : 210 FF 


162 IF TY < 3 THEN RETURN 
163 IF MID$ (22$,2,1) = "/* THEN 22$ = 
“Q" + 22% 
164 IF MID$S (22%,5,1) = */" THEN 22% = 
LEFTS (22$,2) + °0° 4 RIGHTS ( 
22$,4) 
165 IF LEN (22$) < > 8 THEN Z$ = MES 
3): GOSUS 190: GOTO 1 49 
166 Z4 = VAL € MID$ (22#%,4,233: IF VAL 
€ LEFT$S (22#,23) > 31 OR 24 > 12 
OR Z4 # VAL © RIGHTS (228,2) « 
= 0 THEN 2$ = ME$(3): GOSUB 190 
: GOTO 149 
167 RETURN 
M 168 IF ME = 2 OR X = 1 THEN UTAB VU: HT 
É AB H:22$ = ZYS(LL): PRINT 22$ SPC 
€ LO - LEN (2Z$)) 
Ë 169 RETURN 
180 REM 
190 UTAB 21: HTAS 1: CALL - 868: INWER 
SE : FOR Z = 1 TO 150:21 = PEEK 
€ — 16336): NEXT : PRINT 2$;: NOR 
MAL : FOR Z = 1 TO 2500: NEXT : H 
TAB 1: CALL - 868: RETURN 
M) 300 DATA 9,28,1,2,17,36,1,1 
310 FOR I = 1 TO 2: READ ZUX(I1) ,2HÆ1), 
2LXC1D,TY2(1): NEXT 
20 PRES Ce US de can 
400 TEXT : HOME : PRINT Di$"BLOAD GESMA 
SKi,D1": REM PREMIER MASQUE DU 
PROGRAMME 
405 V = 14:H = 28:L0 = 1:TY = 2:X = 0:ME 
= 0:BX = 0 
410 E = 0: GOSUB 149: IF E = 9 THEN 410 
420 ZX = VAL (22%): IF Z# < 1 OR 2% > 6 
THEN 410 
430 1F 2% = 6 THEN HOME : END 
440 VU = 17:H = 24:L0 = 9:TY = IiLL = 1 
450 E = 0: GOSUB 149: IF E = 9 THEN 405 
460 2Y$(1) = 226:M$ = 22$:2M$ = "ENREGIS 
TREMENT CONFIRME": GOSUB 70: IF Z 
$ = "N° THEN X = 1: GOTO 450 
470 HOME : PRINT D#$"BLOAD GESMASK2" :X = 
O:ME = 0:87 = 0: REM DEUXIEME M 
ASQUE DU PROGRAMME 
480 VU = 7:H = 29:TY = 2:L0 = 1:E = 0: GO 
SUB 149: IF E = 9 THEN 400 
490 2Y#(1) = 22$:D = VAL (22#): IF D < 
1 OR D > 2 THEN X = 1: GOTO 480 
500 IF ZX < > 4 THEN 560 
510 ME = 0:04 = 2:X = 0 
520 FOR LL = DX TO 3:L1 = LL - 1:20 = 2V 
ACLIDIH = 2HZ(LHD 3LO = ZLZCL1D:TY 
= TYX(L1) 
525 E = 0: GOSUB 149: IF E = 9 AND LL = 
2 THEN LL = 3: NEXT :X = 1: GOTO 
480 
530 IF E = 9 THEN LL = 1:X = 1: GOTO 55 
0 
540 ZYS#(LL) = Z2$ 
550 NEXT :S = VAL (ZY$(2)):E$ = 2Y$(3) 
1: IF S < 1 OR S > S OR (ES € > ” 
0° AND E$ € > "N°) THEN D = 3:X 
= 1: GOTO 520 
560 GOSUB 70: IF 2Z$ = "N" THEN X = 1: G 
OTO 480 
570 2 = 0: HOME : PRINT Di$"8LOAD'M#" ,D° 
D: ON ZX GOTO 600,610,620,630,650 
600 IF Z = O THEN 9010 
602 CALL 37376: REM ROUTINE DE GESTIO 
N DE MASQUES 
D 


52 


603 POKE DP,4: POKE BT,136: CALL MOVE: 
REM  DEPLACEMENT DE $400 EN $8800 

604 HOME : VTAB 10 

605 INPUT * SOUS QUEL NOM LE SAUVER : ‘; 


NUS: IF NW$S = "?* THEN PRINT D1$ 
"CATALOG" : GET LWW$: PRINT : GOTO 
605 

606 IF NW$ = "#® THEN 400 

607 IF NW$ <{ > *° THEN M$ = NS 

608 POKE DP,136: POKE BT,4: CALL MOVE 

609 POKE 34,24: PRINT D$*BSAVE"M$",A102 
4,L1024": GOTO 400 

610 CALL 37379: GOTO 603: REM ON SAUTE 
LE *HOME® DE LA ROUTINE 

620 POKE 36,0: POKE 37,23: CALL 37411: 
GOTO 400: REM ONSAUTEDIRECTEMENTA 
U"JSR VTAB"DELAROUTINE 

630 PRINT D$"PR#°S: IF E$ = “O* THEN P 
RINT CHR$S (9)° BON” 

640 CALL 37989: PRINT D1$"PR#0": GOTO 4 
00: REM ROUTINE DE HARD-COPY TEX 
+ 

650 2M$ = "ANNULATION CONFIRMEE": GOSUB 
70: IF 2$ = "N" THEN 400 

660 PRINT Di$"DELETE"M$: GOTO 400 

9000 72 = PEEK (222): IF Z = 6 AND 2x = 
1 THEN 600 

9010 IF 2% = 1 THEN 2% = "CE MASQUE EXI 
STE DEJA": GOSUB 190: GOTO 400 

9020 Z$ = "CE MASQUE N’EXISTE PAS": GOSU 
B 190: GOTO 400 


6 DE DE JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 


# # 
* GESTION DE MASQUES # 
# # 
Re #% 
# # 
*x 1 - CREATION 2 - MODIFICATION * 
# # 
# 3 - CONSULTATION 4 - IMPRESSION * 
*% # 
*# 5 —- ANNULATION 6 -— FIN # 
#% # 
*% # 
% VOTRE CHOIX : # 
ps # 
#% # 
x NOM DU MASQUE : ,....,..,.. # 
# # 
# #% 


Je 6 26 DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 6 DE DE DE DE DE DE DE 
JE EE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE 


* * 
% GESTION DE MASQUES - PARAMETRES # 
* * 
M + 
* * 
% NUMERO DU DRIVE (1/2) : . * 
* * 
* SLOT DE L’IMPRIMANTE : . * 
* * 


VOTRE INTERFACE-IMPRIMANTE FAIT 


* 
* 
* 
ELLE UN AFFICHAGE À L'ECRAN AU * 
* 
MOMENT DE L’IMPRESSION (O/N) : ,. * 

* 


JDE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE DE HE 
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Visicalc est vraiment formidable ! 
Pour la gestion financière ou 
commerciale bien sûr, mais égale- 
ment pour bien d'autres choses : Oli- 
vier Herz vous a présenté un calen- 
drier perpétuel dans le numéro 10 de 
Pom's, aujourd'hui, je vous propose 
de calculer les heures de lever et 
coucher du soieil. 


Pour utiliser ce tableau, il suffit de le 
charger à partir de la disquette 
Pom's; si vous ne la recevez pas, 
vous trouverez ci-dessous la liste du 
tableau obtenue avec le programme 
LISTE de la disquette d’accompa- 
gnement ‘Visicalc sur Apple” (Edi- 
tons du PSI). 


La feuille affiche deux fenêtres : sur 
la première, vous entrez le jour et le 
mois, la latitude et longitude du point 
considéré (format degrés.minutes, 
positif pour le nord et l’ouest, négatif 
pour le sud et l'est) ainsi que le dé- 
calage horaire officiel par rapport au 
méridien de Greenwich 


Le tableau utilise par défaut les coor- 
données géographiques de Paris, les 
coordonnées de quelques grandes 
villes en France et ailleurs se trouvent 
sur la droite du tableau; vous pouvez 
bien entendu en ajouter d'autres en 
consultant un atlas. N'oubliez pas 
d'indiquer le décalage horaïre (+1 
en hiver et +2 en été pour la 
France), vous pourrez trouver celui 
de n'importe quel pays sur un indica- 
teur d'Air France. 


La deuxième fenêtre affiche les résui- 
tats en heures locales sous le format 
heures.minutes. ainsi que la durée 
totale du jour. 


FICHIER VISICAI C = 


/X!/X>A16:>B19:; 
/GC9 
JXT/X>A1:>C6: : /GFG 
>BS: /TH 
/X>A1:>B1:/TV 
/GC3 

/GFL 

/XH12 

/GRA 

/GOK 

/w1 

>A1:"HEURES DE 
>B1:" LEVER & 
>Ci:"COUCHER D 
>Di:"U SOLEIL 
>EL::": 


»E2%"3 
>A3: "COPYRIGHT 
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Lève-toi et brille ! 


Quelques tests sont inclus pour véri- 
fier la saisie; le message Error” s’af- 
fiche en cas d’incohérence. Dans cer- 
tains cas extrêmes (en particulier en 
Sibérie), il est possible que le soleil 
se lève avant O heure ou se couche 
après minuit: la grille affichera alors 
un astérisque à la suite de l'heure lo- 
cale. 


SLONGITUDE{DD.MM)-> 
10DECALAGE HORAIRE-> 
11 


Alexandre Avrane 


et la réfraction atmosphérique ne 
sont pas pris en compte et peuvent 
conduire à des erreurs de l'ordre de 
5 minutes Enfin, cette grille ne 
toume pas sur certains simili-Visicalc, 
en particulier Magicalc qui n'accepte 
pas les formules trigonométriques, ou 
Multiplan qui ignore Arcosinus; i fau- 
drait revoir la grille et utiliser les dé- 
veloppements limités : un lecteur re- 


Attention : l’aplatissement des pôles lèvera-t-il le défi ? ms 
À B C D 
1HEURES DE LEVER & COUCHER DU SOLEIL 
Dnnnn mn 
3COPYRIGHT A. AVRANE ET POM’S - 1S84 
EE de à 
S 
SJOUR MESSE EEEES > 14 
MOIS STE SSSR > 7 
8LATITUDE (DD.MM)-> 48.52 N=+ S=- 


-2.23 W=+ E=- 
2.06 


C D 


1. 


À B 

16 

17RESULTATS (HEURES LOCALES HH.MM) 

18=========22222222222 

1S 

2OLEVER ----------- > 

2ACOUCHER. === > 

22DUREE DU JOUR ---»> 

SOLEZI 

>B3:'"" A. AVRAN 
>C3:"E ET POM' 
>D3:"5 - 1984 
>E3 571 
DAd:"z=z==22-2-2-- 
>Bd4:"====-=---- 
>C4s'"=2=====--- 
>D4:"===------ 
>E4:"! 
>AG:"JOUR ---- 
BG: "-------- > 
>C6:/FL14 


2D6:/F#@IF(@8OR 
>F6: "PARIS 
>G6: ‘MARSEILLE 
>H6:" LILLE 
>16: "BREST 
>J6:"STRASBOUR 
>K6:"G OSLO 
>L6 :‘"ATHENES 
>M6:"SINGAP@UR 
>N6:* LE CAP 





(C6<1,C6>31),G@ERROR,0) 





>06:"MELBOURNE 
>P6:" NEW YORK 
>G6:" ANCHORAG 
>R6:'"E LIMA 
>S56:"*TAHITI 
>A7::MOTS ==: 
>C7:/FL7 

>D7:/F#QIir (@GOR(C7<1,C7>12) ,GERROK,0) 
>A8:/FL"LATITUDE 

>kR8:"(DD.MM)-> 

>C8:/FS48,52 

>D8:"  N=+ S=- 

>F8:48.52 

>G8:43.26 

>H8:50.34 

>i8:48.27 

>J8:48.32 

>K8:59.54 

>L8:37.54 

>M8:1.21 

>N8:-33.58 

>08:-37.44a 

>P8:40.46 


>Q8:61.11 
>R8:-12.02 
>58:-17.33 


>A9:'"LONGITUDE 
>B9:"(DD.MM>-> 
>C9:/FS-2.23 


>D9:" W=+ E=- 
>F9:-2.23 
>G3:-5.13 
>H9:-3.0S 
>19:4.25 
>J9:-7.38 
>K9:-10.358 
>L9:-23.44 
>M9:-103.54 
>N9:-18.36 
>09;-144.54 
>P9:73.53 
>Q9:149.59 
>RS:77.07 
>59:149.37 


>A10:"DECALAGE 
>B10:'"HOKAIRE-> 
>C10:/FS2 


>D10:/F#*@IF (@QOUK(C8<-80,C8>90,C9<-90,C8>80,C10<-12,C10>12),@ERROR,0) 


>A12:/Fæ+(C8-GINT(C8))/.8 
>B12:/F#+{C9-QINT(CS))/.6 
>C12:/F#+@INT(C8)+412 
>D12:/F#+QINT(CS)+B12 
>E12:/F#@P1I/180 
>A13:/Fxr.888%x(C6+(30.3#x(07-1))) 
>B13:/F#+23.5#@CO0OS{(413+10)#E12) 


>C13:/F#+rt.123#@COS((A13+87)#E12)-((1/8) *Q@SIN(2*(413+10)*E12)) 
>D13:/F#+(180/@PI)D#*@ACOS(QTAN(B13*E12)*@TAN(CI12#E12)) 


>A14:/F#+12+C10-C13+((1/15)#C(D12-D13)) 


>B14:/F#xQ@IF(A14<0,24+A14,A14 


>C14:/F#+12+C10-C13+((1/135)+(D12+D13)) 


>D14:/F#Q@IF(C142>24,C14-24,C14 
>415:/F#+C14-A14 
>417:"RESULTATS 

>B17:"* (HEURES 

>C17:"LOCALES H 

>D17:"H.MM) 


>A20:"LEVER --- 
>B20:"-------- > 


>C20:/FS+@QINT(B14)+(16/10)#(B14-GINTEB14)D)D) 


>D20:/F#Q@IF(A14<O0,@EXP(99),0 
>E20:"VEILLE 

>A21:"COUCHER - 

BAT TS > 


>C21:/FS+QGINT(DI14)+(16/10)#(D14-GINT(D14))) 


>D21:/F#@IF(C14>24,GEXP(99),0 
>E21:"LENDEMAIN 
>A22:"DUREE DU 


>B22Z:"JOUR ---> 
>C22:/FS+@QINT(A15)2+((6/10)#(CA1S-GINT(A1S5))) 
54 
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Suite au counier des lecteurs (Pom's 
11-12) demandant la manière d’aug- 
menter le nombre de fichiers disponi- 
bles sur une disquette, voici un petit 
programme de 9 secteurs qui répond 
au problème. 


Une disquette DOS 3.3 ne peut sto- 
cker plus de 105 programmes ou fi- 
chiers dans son catalogue (manuel 
du DOS, page 123). Pour forcer la 
main à la routine de fonnatage, il 
suffit de lui faire ingurgiter quelques 
POKESs et le tour est joué. Une fois 
“traitée” par le programme, une dis- 
quette voit sa capacité en nombre de 
fichiers passer de 105 à 217. 
Comme il ne peut y avoir de créa- 
ton spontanée d'espace disque, le 
nombre de secteurs disponibles pour 
les données passe, quant à lui, de 
496 à 480. 


La VTOC conserve sa place habi- 
tuelle sur la piste $11, secteur $00. 
Le directory, pour sa part, s'étend 
non seulement sur les 15 autres sec- 
teurs de la piste $11, mais également 


sur l'ensemble de la piste $10 (tou- Ligne 80: routine RWTS ‘”’pokée” à Copy dévoile des lacunes. 
jours dans l’ordre décroissant des l'adresse 768. A 
10 REM s=======222s==s2s2222 #20: GOTO 220 
20 REN 2-PISTES CATALOG 220 VTAB 8: CALL - 958: HTAB 2: FLASH : PRINT 
30 REM PAR MARCEL COTTINI “INITIALISATION‘: NORMAL : PRINT : PRINT 
40 REM COPYRIGHT 84 “PROGRAMME DE BOOT: “:NOS: PRINT “FICHIER 
S0: REN =========2==2=22-7==-- TYPE...,..: “:PKS: PRINT ‘NUMERO DE VOLUN 
70 GOSUB 120 E.: “;VOL 
80 POKE 768,32: POKE 769,227: POKE 770,3: POKE 230 PRINT CHRS {4)"INIT'NOS",V"VOL 
771,76: POKE 772,217: POKE 773,3: REM SA | 240 PRINT CHRS (4)"DELETE"NOS 
UT À LA ROUTINE RUTS 250 GOSUB 80 
90 LOC = 10000: POKE 47088,L0C - INT (LOC / 256 | 260 VTAB 8: CALL - 958: PRINT ‘“<RETURN> POUR D 
) » 256: POKE 47089, INT (LOC / 256): REM IRECTORY 217 FICHIERS <9> QUITTER: “;: 
ADRESSAGE MEMOIRE GET AS: PRINT AS: JF AS € > CHRS (13) 
100 POKE 47083,0: POKE 47091,0: REN MET LE VOLU THEN END 
ME À O 270 TR = 17:SE = O:RW = 1: GOSUB 320: IF PEEK « 
110 RETURN LO + 120) = 255 AND PEEK {LO + 121} = 25 
120 TEXT : HOME : INVERSE : PRINT “ 2 PISTES CA S THEN POKE LO + 120,0: POKE LO + 121,0: 
TALOG *: NORMAL : PRINT : PRINT “UTILISE RW = 2: GOSUB 320: GOTO 290: REM FiXE LA 
AUSSI LA PISTE 16 COMME CATALOG“: PRINT VTOC 
{IL FAUT QU'ELLE SOIT LIBRE.)"*: PRINT 280 INVERSE : PRINT : PRINT CHRS (7):* LA PIST 
130 FOR X = 1 TO 40: PRINT ‘“#"“;: NEXT X: PRINT E 16 EST DEJA UTILISEE 1‘: NORMAL : PRIN 
140 VTAB 8: INPUT “VOULEZ-VOUS INITIALISER LE D T : PRINT ‘“(RECOMMENCER AVEC UN AUTRE DIS 
ISK ? REPONDEZ PAR ‘OUI’ OU ‘N’: “: K.)“: END 
INS: IF INS = “N“ THEN GOTO 250 290 TR = 17:SE = 1:RW = 1: GOSUB 320: POKE LO + 
150 IF INS < > “N* AND INS < > “OUI“ THEN 120 1,16: POKE LO + 2,15:RW = 2: GOSUB 320: R 
160 VTAB 8: CALL - 958: INPUT ‘NOM DU PROGRAMM EM POINTEUR DE LA PISTE 16 
E DE BOOT: “:NOS: IF NOS < “A“ AND NOS > 300 TR = 16: FOR SE = 15 TO 1 STEP - 1:RW = 1: 
“2“ THEN 160 GOSUB 320: POKE LO + 1,16: POKE LO + 2,SE 
170 VTAB 8: CALL - 958: INPUT “NUMERO VOLUXE D - 1:RW = 2: GOSUB 320: NEXT : REM POINTE 
U DISK: ‘‘;VOS:VOL = VAL (VOS): IF VOL « UR DU PROCHAIN SECTEUR 
1 OR VOL > 254 THEN 170 310 PRINT : PRINT “LE DIRECTORY PEUT CONTENIR 2 
180 VTAB 8: CALL - 958: INPUT ‘’<A>PPLESOFT 17 FICHIERS.*: END 
<B>INAIRE OU 320 POKE 47084,TR: POKE 47085,SE: POKE 47092,RW 
<T>EXTE ----> “;P : GOSUB 330: CALL 768: RETURN : REM LECTU 
KS: IF PKS < > “A'* AND PKS < > ‘“B‘ AND RE ECRITURE SECTEUR 
PKS « > “T“ THEN 180 330 IF RW = 1 THEN VTAB 8: CALL - 958: PRINT 
190 IF PKS = “A“ THEN PKS = “APPLESOFT"‘: POKE 4 * LECTURE: “: 
0514,6: GOTO 220 340 1F RW = 2 THEN VTAB 8: CALL - 958: PRINT 
200 IF PKS = “B* THEN PKS$ = “BINAIRE“: POKE 405 “ECRITURE: *: 
14,52: GOTO 220 350 PRINT “PISTE-‘‘:TR;'", SECTEUR-";SE: FOR X = 
210 IF PKS = ‘T“ THEN PKs = “TEXTE‘: POKE 40514 1 TO 100: NEXT : RETURN 
RE 
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217 fichiers 


secteurs). À raison de 7 noms de fi- 
chiers par secteur de catalogue, on 

pa donc en conserver 31x7 soit 
17, 


Il n'est pas nécessaire d'initialiser une 
disquette vierge; une disquette en 
cours d'utilisation peut être modifiée, 
pourvu qu'elle n'exploite pas encore 
la piste $10 (c'est normalement une 
des dernières pistes allouées par le 
DOS). La carte d'occupation (VTOC) 
est automatiquement mise à jour par 
le programme ci-joint. 

Ce programme nécessite un Apple II 
(n'importe quelle cuvée} et le DOS 
3.3 chargé. Vérifiez bien que ce der- 
nier possède une commande INIT 
valide (pas de DOS modifié par un 
des nombreux patches récupérant la 
place mémoire d'INITI. En ces de 
doute... Apple vous a fourni une dis- 
quette MASTER, utilisez-la ! 


Fonctionnement 
du programme 


par disquette 


Marcel Cottini 


Ligne 90 : adresse du tampon utilisé 

par RWTS. 

Ligne 100 : met le volume à zéro. 

Ligne 190 à 210: fixe la variable 

PK$ selon le type du programme de 

boot (Applesoft, binaire ou Exec). 

Ligne 230 à 240 : initialisation de la 

disquette. 

Ligne 270: contrôle si la piste $10 

(16) est déjà occupée, en consultant 

; NS actuelle (piste $11. secteur 
0). 

Ligne 290 : fixe le pointeur vers la 

piste $10. 

Ligne 300: pointeur des prochains 

secteurs. 

Ligne 320 à 350 : lecture/écriture des 

pistes/secteurs par RWTS. 


La disquette peut être globalement 
copiée par nimporte quel pro- 
gramme comme COPYA. Les fichiers 
peuvent également être copiés indivi- 
duellement, mais pas par tous les 
programmes : FID fonctionne correc- 
tement, en revanche Super Disk 
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Conversion minuscules/MAJUSCULES 


Alexandre Âvrane 


B/.*/52 1 


Oh, excusez-moi, je ne savais que 
vous n’aviez pas d'affichage en mi- 
nuscules | 


Programmeurs sur Apple //e et //c, 
ayez un peu de pitié pour les posses- 
seurs d'un ‘vieil’ Apple (1 an et 
demi !) sans la ROM LC qui permet 
les minuscules à l'écran. Non qu'ils 
soient excusables de ne pas se pro- 
curer cet accessoire bon marché et si 
pratique, mais n'oubliez pas qu'un 
bon programme doit avoir la correc- 
tien de regarder où il est et ne pas 
dire ’Bonjour’”’ comme ci-dessus. 


Deux PEEKSs permettent de savoir 
sur quel type de machine on se 
trouve : 


e PEEK(64255) vaut 0 avec la ROM 


teur (Apple Il simple ne suppor- 
tant pas la ROM LC). 

e PEEK(64266) vaut 208 pour un 
Apple Il ou 1H avec la ROM Au- 
tostart, 240 pour un //e ou //c. 


Dans le premier cas (208), il n'existe 
aucun moyen de savoir s'il est possi- 
ble d'afficher des minuscules : il faut 
poser la question comme le fait 
Apple Writer IL Si la réponse est né- 
gative (pas de minuscules), cela 
n'oblige pas le programme à modifier 
toutes ses sorties vidéo, mais plutôt à 
utiliser une routine de conversion qui 
intercepte les caractères et les trans- 
forme en majuscules. 


C'est le but du programme SHIFT, 
qui convertit également les minuscu- 
les accentuées et lettres propres au 
français; ainsi, Ctrl-X, qui fournit un 


Autostart, 1 avec l'ancien moni- backslash” interprété comme un c 

| HHHKKEKEEEEEEEREREELLLRERIHHIXIXX 40 TXA 
2 * # 41 PHA 
3 *# SHIFT % a2 

4 * % 43 LDA 
S XXE JE JE DE JE JE DE JE JE DE JE JE DE DE JE JE JE JE JE JE JE EE JE EEE EX 44 LDX 
6 45 i00P CMP 
7 # Copyright [C1 1984 A. Avrane 46 8E@ 
8 47 DEX 
9 x Maj: 02/01/84 < 48 8PL 
10 * Crt£: 02/01/84 Big Mac a9 CMP 
11 50 8CC 
12 * Ce programme permet, aux S1 SEC 
13 * utilisateurs d'Apple 11+ sans 52 S8C 
14 # rom 1.c., de visualiser toutes 53 BNE 
15 *# minuscules en majuscules. 54 CHANGE LDA 
16 * 1j se lance par un simple SS EXIT STA 
17 x BRUN. Reset reconnecte 96 PLA 
18 * sortie vid{o normale. 57 TAX 
19 * La version assembl (e en SB PLP 
20 #*# $9A00 se sitve au sein des 99 EDA 
21 * buffers du Dos. Prudence donc. 60 JMP 
22 61 TABLE! DFB 
23 CSW = $36 62 DFB 
24 TRAP == +46 63 DFB 
25 DOSHOOK = $3EA 64 DFB 
26 COUTG = $FDFG 65 0FB 
27 66 DFB 
28 ORG +$300 67 DFB 
29 68 DFB 
30 LDA  #<HOOK 69 TABLE2 ASC 
31 STA CS 70 ASC 
32 LDA  #>HOOK 71 ASC 
33 STA CSWst 72 ASC 
34 LDA #0 73 ASC 
35 STA TRAP 74 ASC 
36 JMP DOSHIOK 75 ASC 
37 76 ASC 
38 HOOK STA CHAR 77 CHAR DFB8 
39 PHP 78 END 


Récapitulation SHIFT 


0300- A9 0F 85 36 À9 03 85 37 
0308- A9 00 85 48 4C EA 03 8D 


SBAGERAINNE Ÿ 


D6 


0310- 44 03 08 8A 48 AD 4A 03 
0318- A2 07 DD 34 03 FO OC £A 
0320- 19 F8 C9 EO 90 08 38 E9 
0328- 20 DO 03 BD 42 03 8D 4A 


cédille par la ROM IC, affiche un C 
assez surprenant. 


Le source (Big Mac) doit être assem- 
blé de préférence à l'adresse $300. 
La version pour le programme de 
BLOC-NOTES, publiée dans le 
Pom's 13, est logée en $9A00, c'est- 
à-dire dans un buffer du DOS inuti- 
lisé par le programme, donc avec 
une sécurité réduite. 


Dans la même optique, n'oubliez pas 
que les Apples ne possèdent pas tous 
de carte 80 colonnes; il est moins dé- 
sagréable de lire un message bien 
poli indiquant qu'il est impossible 
d'exécuter le programme sur la ma- 
chine en cours, que de voir son 
Apple devenir sourd et muet. 


sauve Îles registres 


#7 
TABLE! ,X 
CHANGE 


LOOP 
#$ES 
EXIT 


##20 
EXIT 
TABLE2,X 
CHAR 


=Jjmp 


CHAR 
COÛTO 
$CG L 
$DC HAS 
$E0 

$F6 ; 
$FC ; 
$FD ; 
$FE ; 
$FF ; 
"A" 

“er 

nin+$20 
“E"+$20 
“U*"+$20 
"E"+$20 
"—"+$20 
"1e+520 

0 


0330- 03 68 AA 28 AD 48 03 40 
0338- F0 FD CO DC E0 F8 FC FD 
0340- FE FF Ci C3 A1 CS DS C5 
0348- AD At 00 
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Qu n'a jamais souhaité retrouver la 
disquette sur laquelle est stocké tel fi- 
chier, ou l'adresse de chargement 
d'un programme assembleur ? CAT- 
GEN répond à ce souci et vous per- 
met en effet de : 


e stocker le catalogue d’un ensem- 
ble de disquettes dans un seul fichier: 
® fier ces informations selon diffé- 
rent critères; 

e éditer le résultat d’un tri à 
ou sur imprimante. 


CATGEN fonctionne sur Apple 1+ 
où //e, avec 1 ou 2 lecteurs de dis- 
quettes et supporte une imprimante. 
est écrit en Basic et utilise deux 
routines en assembleur : l'accès à la 
routine RWTS pour la lecture du ca- 
talogue et un programme de tri. 


l'écran 


Après avoir demandé la date et s'être 
assuré de sa validité, CATGEN pro- 
pose un menu de 8 rubriques : 


1 - INITIALISATIONS : permet de 
définir le nombre de lecteurs (1 par 
défaut) et le type de l'imprimante (en 
fait EPSON ou autres). C'est là 
qu'est initialisé le fichier de données 
baptisé "CATALOGUE GENERAL”. 


2 - SAISIE de disquettes DOS 3.3 : 
le programme demande s’il s’agit 
d'une mise à jour par la question 
"EST-CE UNE NOUVELLE DIS- 
QUETTE (O/N) ? ”, puis les caracté- 
ristiques de la disquette traitée : NU- 
MERO, FACE, LABEL, CLASSE des 
fichiers. 


Le programme lit et analyse la piste 
17 ($11) de la disquette pour déter- 
miner les caractéristiques de chaque 
fichier. à savoir : le NOM, le TYPE, 
la TAÏLLE en secteurs, l'ADRESSE 
de CHARGEMENT et la LON- 
GUEUR des programmes binaires. 


Un dialogue permet de compléter les 
informations : CLASSE (numéro de 
1 à 16 dont la signification est définie 
par l'utilisateur), NOM d'un fichier lié 
(chier de la mème disquette associé 
au fichier en cours). 


3 - SAISIE de disquettes "SPECIA- 
LE” : il s'agit de disquettes Type Pas- 
cal ou non ’cataloguables”. Les in- 
formations correspondant à chaque 
fichier sont saisies par dialogue au 
clavier. 


4 - COMPACTAGE du fichier CA- 
TALOGUE GENERAL : il doit être 
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Un catalogue général 


effectué après une mise à jour. 


5 - TRI: un menu offre le choix 
entre 5 critères de tri: par Nom, par 
Numéro de Disquette, par Label, par 
Type, par Classe. Le résultat du ti 
peut être sauvegardé dans le fichier 
TRI. Pour chacun de ces ciitères, les 
fichiers sont classés par ordre alpha- 
bétique. 

6 - EDITION: après définition de 
l'organe de sortie (Ecran où Impri- 
mante), un menu propose 5 formats 
d'édition. Le choix 5 est adapté à 
l'Epson MX82. Une édition n’est faite 
qu'après un tri et suppose l'existence 
du fichier TRI. 


7 - MODE D'EMPLOI : une descrip- 
tion succincte des possibilités de 
CATGEN est affichée. 


8 - Enfin, le choix 8 permet de quit- 
ter CATGEN. 


A le fin de chaque session. il est pos- 
sible, soit de revenir au MENU), soit 
de reprendre la même session. 


CATGEN est constitué de 5 pro- 
grammes implantés sur une disquette 
placée dans l'unité 1 et appelée ‘dis- 
quette programme”. Le fichier de 
données CATALOGUE GENERAL 
est sur la même disquette. 


Pour une configuration à 2 lecteurs, 
la disquette analysée est dans l'unité 
2 


Des messages permettent de s'assu- 
rer à chaque opération que la dis- 
quette installée est la bonne. 

Sauf spécification explicite, les répon- 
ses à donner sous forme d’un seul 
caractère ne nécessitent pas le ’RE- 
TURN’ 


Quelques remarques sont nécessaires 
en ce qui conceme la phase de sa- 
sie : 

e Pour alléger le dialogue de valida- 
tion des informations, il faut ré- 

pondre ”O" à la question ”EST- 
ÊLLE GLOBALE (O/N) ?” pour la 
classe des fichiers. 

e Par contre, pour filtrer certains f: 
chiers (ne pas les inclure dans le 
CATALOGUE GENERAL), il 
convient de répondre ”’N” à cette 
même question et d'utiliser ensuite 
la touche ESC lorsque la question 
"OK (O/N OÙ ‘ESC')?” est 


Michel Baudrand 


posée. 

e Pour mettre à jour les informations 
concernant une disquette, il faut 
répondre ”’N’” à la question ”’EST- 
CE UNE NOUVELLE DIS- 
QUETTE (O/N) ?”. 

e Le nom du fichier lié doit apparte- 
nir à la même disquette ou être 
absent. 

e Si on répond ‘RETURN’ au para- 
mètre CLASSE, la valeur prise est 
celle définie le cas échéant dans la 
phase de définition de la dis- 
quette, sinon il s’agit de celle du 
fichier précédemment traité. 


On peut enchaïîner la SAISIE de plu- 
sieurs disquettes avant d'effectuer la 
mise à jour du fichier CATALOGUE 
GENERAL, et ce jusqu'à concur- 
rence de 100 fichiers. À la question 
"ENCORE (O/N) ?” il suffit de ré- 
pondre ”O”. Le nombre de fichiers 
saisis est affiché en ‘“%”’ (TAUX). 


La signification du paramètre 
CLASSE peut être personnalisée. 1 
suffit de redéfinir 16 rubriques dans 
les instructions DATA en fin du pro- 
gramme  CATGENSAISIE (après 
DATA RUB - lignes 2980 à 3000). 


L'opération de COMPACTAGE 5e 
fait par recopie du fichier CATALO- 
GUE GENERAL sur la disquette pro- 
gramme. Ceci limite la taille du fi- 
chier de données à 500 articles 
environ. Par contre, le mi s'’accom- 
mode d’un fichier non compacté. 


En cas de détection d'erreur, le pro- 
gramme concerné s'arrête après édi- 
tion du numéro de la ligne erronée, 
sauf dans CATGEN où le MENU est 
relancé. 


Quelques précisions techniques 


Le CATALOG est lu par appel à 
RWTS et analysé en Basic. L'appel à 
RWTS est implanté de 768 à 798. 
Le buffer lu est en $9400. 


La routine de tn (fichier SPEED 
SORT), empruntée à NIBBLE, est 
accolée en fin de CATGEN TRI par 
modification du pointeur $AF-$BO. 
Le tri est effectué en mémoire, d’où 
la limitation à 1000 du nombre de fi 
chiers gérés. 

Les mémoires 800 à 81i servent à la 
communication entre les divers pro- 
grammes {date, nombre de drives, 
type d'imprimante). O 














100 REM sonnannannananananan 
110 REM * CATALOGUE.. * 
120 REM # GENERAL: MENU # 
130 REM # JUIN 19384 # 
140 REM 2000N2000N 2082283282 
150 ONERR GOTO 6930 
160 DS = CHRS (4) 
170 F$S = “CATALOGUE GENERAL" 
180 RDS = DS + “READ * 
F2 130 WRS = DS + “WRITE * 
# 200 OPS = DS + “OPEN * 
Le) 210 CLS = DS + “CLOSE * 
| 220 DLS = DS + “DELETE* 
EE 230 REM eanxnamenes 
# 240 REM * MENU + 
ue 250 REM sesaznxesss 
#4 260 TEXT : HOME 
= 270 HOME : INVERSE : PRINT “*DATE'“:: NOR 
LE MAL : PRINT ‘ “:DaAs: 
sa 280 HTAB 30: PRINT “CATGEN “;:: INVERSE 
L- « : PRINT “V2.1*;: NORMAL 
= | 290 FOR I = 1 TO 40: PRINT “=";:: NEXT I 
300 REM LECTURE DE LA DATE 
310 IF PEEK (800) < > 255 THEN 350 
320 DAS = “** 
330 FOR I = 1 TO 8:DAS = DAS + CHRS ( 
PEEK (800 + I)): NEXT I 
340 GOTO 400 
350 VTAB 10: INPUT “DATE {JJ/MM/AA) :; * 
: DAS 
352 JJS = ‘*‘*:MMS = ‘‘‘ 
353 FOR I = 1 TO LEN (DAS) 
354 JS = MIDS (DA$S,1,1): IF JS = “/* OR 
JS = “ “ THEN 11 = I: GOTO 357 
3SS JJS = JJS + JS 
356 NEXT I 
357 FOR I = Ii + 1 TO LEN (DAS) - 11 
358 MS = MIDS (DAS,1,1): IF M$ = “/* OR 
MS = ‘“ ‘“ THEN 361 
353 MMS = MMS + MS 
3560 NEXT I 
361 ANS = RIGHTS (DAS,2) 
362 AA = VAL CANS):MM = VAL (MMS) :JJ = 
VAL (JJS) 
363 IF JJ < 1 OR JJ > 31 OR MM < 1 OR M 
M > 12 OR AA < 84 THEN PRINT CH 
RS (7): GOTO 350 
364 IF LEN (JJS) = 1 THEN JJS = "OO" + 
JJs 
365 IF LEN (MMS) - 1 THEN MMS + ‘“O* + 
MMS 
366 DAS = JJS + “/" + MMS + ‘“/" + ANS 
370 FOR I = 1 TO 8: POKE 800 + I, ASC { 
MIDS (DAS,1I,1)): NEXT I 
380 POKE 34,4: HOME : POKE 34,1 
385 POKE 810,1: POKE 811,1: REM PAR DE 
FAUT ’1 DRIVE’ 
330 POKE 800,255: REM DRAPEAU POUR L'’I 
NITIALISATION 
400 VTAB 1: HTAB 6: PRINT DAS 
410 POKE 34,2 
420 HOME : HTAB 17: INVERSE : PRINT “M 
E NU“: NORMAL : PRINT 
430 HTAB 4: INVERSE : PRINT ‘“1*:: NORMA 
L : PRINT “-INITIALISATIONS" 
440 PRINT 
450 HTAB 4: INVERSE : PRINT ‘“2*;: NORMA 
ARE 
58 


460 
470 


480 
490 


S00 
S10 


S20 
530 


540 
SS0 


560 
570 


580 


5930 
600 
610 


620 
630 


640 
650 
660 


670 
680 
690 
700 
710 
720 


730 


740 


750 
760 


770 


780 


7930 


800 
810 
820 
830 


L : PRINT 
S:939% 

PRINT 

HTAB 4: INVERSE : PRINT 
L : PRINT “-DISGUETTE 

PRINT 

HTAB 4: INVERSE : PRINT ‘“4"*;: NORMA 
L : PRINT “-COMPACTAGE DU FICHIER 

FS® 

PRINT 

HTAB 4: INVERSE : 
L : PRINT 

PRINT 

HTAB 4: INVERSE : PRINT 
L : PRINT “-EDITION.." 

PRINT 

HTAB 4: INVERSE : PRINT “7*:: 
L : PRINT “-MODE D'EMPLOI..." 

PRINT 

HTAB 4: INVERSE : PRINT “8“:: 
L : PRINT “-FIN DE SESSION" 

VTAB 22: INVERSE ; PRINT “CHOISISSE 
Z VOTRE SESSION {(1..8)";:: NORMAL 
: PRINT “ “;:: GET Z2$: PRINT 2ZS$S:ME 

= VAL (25) 

IF ME < 1 OR ME > 8 THEN S80 

POKE 80S,ME 

ON ME GOSUB 700,910,9310,1040,340,98 
0,1010,660 

Z = FRE «0) 

VTAB 23: CALL - 358: INVERSE : PRI 
NT “RETOUR AU MENU (O/N)D?";:: NOR 
AL : PRINT “ “;: GET Z$: PRINT 2$ 

IF Z$ = “N* THEN 660 

GOTO 420 

TEXT : HOME : PRINT CLS: VTAB 10: H 
TAB 14: PRINT “AU REVOIR...": VTA 
B 23 

END 

REM SI ’ERREUR’,RELANCE DU MENU 

PRINT DS: PRINT DS"PR£O": GOTO 240 

REM * INITIALISATIONS" # 

HOME 

HTAB 12: INVERSE : 
ATIONS": NORMAL 

VTAB S: PRINT “CONFIGURATION AVEC * 
:: INVERSE : PRINT “1";: NORMAL : 

PRINT ‘* OU “;: INVERSE : PRINT * 
2"*:: NORMAL : PRINT “ DISQUES ‘4 
“+: GET DKS: PRINT DKS 

DK = VAL (DK$): IF DK < 

< > 2 THEN 730 

POKE 810,DK 

VTAB 7: PRINT "L’IMPRIMANTE EST-ELL 
E UNE EPSON(":: INVERSE : PRINT * 
9/N";:: NORMAL : PRINT “)>?*;: GET 
TYPLPS: PRINT TYPLPS 

IF TYPLPS < > “O* AND TYPLPS < > 
"N" THEN 760 

POKE 811,80: IF TYPLPS = 
POKE 811,1 

VTAB S: PRINT “CREATION DU FICHIER 
(“;: INVERSE : PRINT “O/N‘“:: NORM 
AL : PRINT “ + “;: INVERSE : PRIN 
T “RETURN";: NORMAL : PRINT “) *“ 
:: INPUT 2$ 

IF 2$ = “N" THEN RETURN 

IF Z$S < > “O* THEN 790 

REM NO%=NOMBRE MAXI D'ARTICLES 

REM LOXx=TAILLE DES ARTICLES 


“-DISGUETTE STANDARD DO 


“3*;: NORMA 
*SPECIALE”’" 


PRINT 
"TRI..." 


sis . 


NORMA 
“6"“;: NORMA 


NORMA 


NORMA 


PRINT “INITIALIS 


> 1 AND DK 


“N* THEN 
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840 
850 


860 


870 
880 
830 
300 
910 


9320 
330 
940 
350 
360 
970 
380 
330 
1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
11930 
1200 
1210 
1220 


1230 


1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


1330 


100 
110 
120 
130 
135 


Pons 


NO% = 1:LO%x = 87 
VTAB 14: FLASH : PRINT "CREATION" :;:: 
NORMAL : PRINT “ DU FICHIER ‘:: 
INVERSE : PRINT FS: NORMAL 
PRINT OPSFS: PRINT DLSFS: PRINT OPs 
FS 
PRINT WRSFS:",RO" 
PRINT NO%: PRINT LOx 
PRINT CLS 
RETURN 
REM * DISQGUETTE STANDARD 3.3 OU 
ECIALE’ « 
CCS = "“CATGEN.SAISIE" 
GOTO 960 
REM » TRI « 
CCS = “CATGEN.TRI" 
PRINT DS"RUN "CCS 
RETURN 
REM # EDITION *# 
CCS = "“CATGEN.EDIT" 
GOTO 360 
REM # MODE D'EMPLOI # 
CCS = "CATGEN.UTILISATION" 
GOTO 9360 
REM * COMPACTAGE DE FS « 
HOME : HTAB 14: INVERSE : 
OMPACTAGE‘": NORMAL 
VTAB 12 
FLASH : PRINT "COMPACTAGE";: 
E PRINT ‘ DU FICHIER ‘ :: 
E : PRINT FS: NORMAL 
F1s “TRAVOO1" 
PRINT OPSFsS 
PRINT RDSFS:",RO" 
INPUT NO%: INPUT LO% 
PRINT CLS: IF NO%x = 
PRINT OPSFsS:",L'";:LO% 
PRINT OPsSFis:",L'":LO% 
N1x%x = O 
FOR I = 1 TO NOX - 1 
PRINT RDSFS:",R"I 
INPUT STS 
IF MIDS (STS,5,1}> = ‘‘*" 
N1% = N1%x + 1 
PRINT WRSF1S;:",R"N1% 

N1S = STRS (N1%): FOR N = LEN (N1 
S) TO 3:N1S = “O" + N1S: NEXT N 
STS = CHRS (34) + N1S + “ “ +  RIG 

ATS (STS,LO%X - 7) 

PRINT STS 

NEXT I 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


*SP 


PRINT "C 


NORMA 
INVERS 


1 


1 THEN 1320 


THEN 1250 


WRSF1S;",RO" 

N1%x + 1: PRINT LOx% 

CLSF1S 

CLSFS 

DS'"DELETE"FS 

PRINT DS"RENAME"F1S","FS 

PRINT : PRINT “IL Y A ‘“;: INVERSE 
: PRINT N1%x;: NORMAL : PRINT 

ARTICLES ." 

RETURN 


REM ensecanannnanmanannans 
REM # CATALOGUE.. " 
REM * GENERAL: EDIT = 


REM LELLLLLELE LEE LE LELELLEZX)] 


HIMEM: 38400 
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140 
150 
170 
180 
130 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
330 
340 
350 
360 
370 
380 


3930 
400 
410 
420 
430 
440 


450 
460 
470 
480 


490 
500 


510 


520 
530 
S40 
S350 
560 
570 
580 
590 
600 
610 
620 


630 
640 


650 
660 


670 
680 


690 


ONERR GOTO 1330 

DIM ST%x(1000) 
ESS CHRS (27) 

ATS de 
TBS 
DS 
FS 

RDS 
WRS 
OPS 
CLS 


Wu 


CHRS (9) 
CHRS (4) 
“CATALOGUE GENERAL" 
DS + "READ 
DS + “"WRITE * 
DS + "OPEN ‘ 
DS + "CLOSE 
DLS D& + “"DELETE" 
TRS "TRI 
REM LECTURE DE LA DATE 
FOR I = 1 TO 8 
DAS = DAS + CHRS { PEEK (800 + I)) 
NEXT I 
GOTO 470 
REM DECOMPACTAGE DE STS 
STS RIGHTS (STS, LEN (STS) - 5) 
P1$ MIDS (STS,1,5): REM NDS+FAS 
P2s MIDS (ST$S,6,20): REM NAS 
P3$ MIDS (STS,39,20): REM FICH. 
LIEN 
Pas MIDS 
PSS MIDS 
P6s MIDS 
P7s MIDS 
pas MIDS 
P3s MIDS 
R 
PAS = 
RETURN 
REM EDITION 
HOME : HTAB 17: 
ITION‘": NORMAL 
POKE 34,4 
VTAB S: PRINT "SUR ‘":: INVERSE : PR 
INT “(CE)";: NORMAL : PRINT ‘CRAN 
OU “>: INVERSE : PRINT “(I)*;: NO 
RMAL : PRINT "“MPRIMANTE ? “:: GET 
283: PRINT 2s 
IF 2$S < > “"E" 
9500 


ton 


HUN Hu 


REM 
REM 
REM 
REM 
REM 
REM 


CLASSE 
DATE 
TYPE 

TAILLE 

ADRESSE 

LONGUEU 


(STS,59,2): 
(STS,61,8): 
(STS,26,2): 
(STS,28,3): 
(STS,31,4): 
(STS,35,4): 


HU HU HMU KR A 


MIDS (STS,69,12): REM LABEL 


INVERSE : PRINT "ED 


AND 28 < > ‘“J'" THEN 

“E" THEN TERM = © 

“I” THEN TERM = 1 

REM LIT LE FICHIER ’TRI'’ 

PRINT OPSTRS: PRINT RDSTRS 

INPUT N1x% 

FOR I = 1 TO N1x% 

INPUT STx(1) 

NEXT I 

PRINT CLS 

PRINT 

INVERSE : PRINT ‘“1'";: NORMAL : PRIN 
T “-STANDARD :FIC,TYP,TAIL,AD 
R,LNG,NDK,LAB" 

PRINT 

INVERSE : PRINT ‘"2";: NORMAL : PRIN 
T “-PAR DISQUETTE:NDK,FIC,TYP,TAI 
L,ADR,LNG,LAB" 

PRINT 

INVERSE : PRINT ‘"3";:: NORMAL : PRIN 
T "-PAR CLASSE sCLA,FIC,TYP,TAI 
L,ADR,LNG,NDK,LAB" 

PRINT 
INVERSE : 
T “-PAR TYPE 

R,LNG,NDK,LAB" 
PRINT 


PRINT ‘“4";: NORMAL : PRIN 
:TYP,FIC,TAIL,AD 


IRUNNDHERAMEERSARAUAE 
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700 INVERSE : PRINT ‘“S'':: NORMAL : PRIN 
T ‘-COMPLET :=NDK,FIC,TYP,TAI 
L,ADR,LNG;LIE,CLA,DATE" 
710 VTAB 22: INVERSE :; PRINT ‘"CHOISISSE 
Z VOTRE FORMAT (1..5) ?7*:: NORMAL 
: PRINT “ “;:; GET 2$: PRINT 28 
720 22 = VAL (2S): IF ZZ2 «<< 10OR 22 > 5 
THEN 710 
730 IF 22 x S AND PEEK (811) « > 80T 
HEN 710 
740 REM OUVRE FSs 
750 PRINT OPsFs 
L-- 760 PRINT RDSFS;:",RO": INPUT NO%: INPUT 
# LO%x 
‘28 770 PRINT CLSFS 
Fi] 780 PRINT OPSFS;:",L'" :LO*x 
-< 784 VTAB 5: CALL - 9S8: VTAB 22: PRINT 
Ha *“<TAPER ’ESP’ POUR SUSPENDRE L'’E 
DITION>'": PRINT “<PUIS UNE 2EME F 
OIS POUR LA REPRENDRED>"*: 
786 POKE 35,21: VTAB 4: HOME : PRINT 
790 IF TERM = O THEN 850 
800 INPUT ‘CADRER LE PAPIER ET TAPER ‘’R 
E: ETURN’ ? “:;:2s 
” 810 PRINT DS"PR£1": IF 2Z < > 5 THEN 
PRINT ESS:"Q": CHRS (80): CHRS «1 
8): 
820 IF 22 = S THEN FOKE 165/7,11C: FRIN 
T ESS;"Q": CHRS (110): CHRS (15): 
: PRINT ESS$S:"D": CHRS (7); CHRS «( 
28): CHRS (34): CHRS (41); CHRS ( 
49); CHRS (55); CHRS (62); CHRS ( 
84): CHRS (89): CHRS (O): 
830 PRINT :NN = O 
840 GOSUB 1070: REM TITRE 
850 FOR I = 1 TO N1x 
870 N2Z%x = STX(I) - 1: IF NZ%x = © THEN 96 
[e) 
880 LASTS = STs 
890 PRINT RDSFS:"*,R";:N2Z% 
900 INPUT STS5 
910 GOSUB 340: REM DECOMPACTAGE 
920 GOSUB 1200: REM EDITION 
921 PRINT DS 
922 KEY = PEEK ( - 16384): POKE - 1636 
8,0: IF KEY < 127 THEN 930 
924 IF KEY = 128 + 32 THEN GET 2S: PRI 
NT 25 
930 IF TERM = O THEN 960 
940 NN = NN + 1 
950 IF NN = 58 THEN FOR J = 1 TO 6: PR 
INT : NEXT J:NN = O: GOSUB 1070 
960 NEXT I 
970 IF TERM = O THEN PRINT DS: GOTO 99 
(6) 
980 PRINT ESS: "à": PRINT Ds: '"PR£O" 
990 PRINT 
1000 POKE 35,23: VTAB 21: CALL - 9Sa8: 
VTAB 23 
1010 INVERSE : PRINT ‘RETOUR AU MENU «O 
/N) ?*;:2: NORMAL : PRINT * “;: GET 
ZS: PRINT 25: 
1020 IF 2S = ‘N'' THEN 470: REM ON REBO 
UCLE 
1030 CCS = “"CATGEN" 
1050 PRINT DS'"RUN"CCS 
1060 STOP 
1070 REM TITRE DE CHAQUE PAGE 
1080 PRINT “DATE: ‘“:DAS:: HTAB 34: PRIN 
T “CATALOGUE GENERAL": PRINT 
D 
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1090 


1100 


1110 


1120 


1130 


1140 


1150 


1160 


1170 


1180 


1190 


1200 
1210 


1220 
1230 


1240 


1250 


1260 


1270 


1280 


1290 


1300 


1310 


1320 


1330 


ON 22 GOTO 1100,1120,1140,1160,118 
[e) 

PRINT “ ‘“;'"NOM DE FICHIER Te 
>:"TYPE";" TAIL. “;"ADR.";:HTS;"LNG 
.«":HTS; "DISK." :HTS; "LABEL" 


FOR 11 = 1 TO 64: PRINT “-“;: NEXT 
11: PRINT : RETURN 
PRINT HTS;"BISK.'";HTS;:'""NOM DE FICH 
IER “TYPE TAIL. “:;"ADR.":H 
TS;:"LNG."*;'" LABEL" 
FOR I1 = 1 TO 63: PRINT ‘“-‘“;:: NEXT 
11: PRINT : RETURN 
PRINT ;:"CLAS":HTS:"NOM DE FICHIER 


PoenTYPE’ #7"  TAIL.";"ADR:-"SHT 
S;"LNG.":HTS;"DISK.";:HTS; "LABEL" 
FOR 11 = 1: TO 68: PRINT ‘“-";: NEXT 

11: PRINT : RETURN 


PRINT “"TYPE":HTS; "NOM DE FICHIER 


TAIL. ADR.";:HTS; "LNG.";>HTS;" 
DISK. “;"CLAS";" LABEL" 
FOR I1 = 1 TO 68: PRINT ‘“-";: NEXT 
11: PRINT : RETURN 


PRINT “DISK.";:TB8S;: "NOM DE FICHIER" 
:TBS:; "TYPE": TBS;"TAILLE";:TBS;"ADR 
-": TBS:;"LNG.":;:TBS: "FICHIER LIEN" 


>: TBS; "CLAS";:TBS; "DATE" ;" LABE 
LE 
FOR Ii = 1 TO 109: PRINT ‘-";: NEX 
T 11: PRINT : RETURK 
REM EDITION 


ON 22 GOTO 1230,1250,1270,1290,131 
0 

GOTO 1410 

IF LEFTS (P2S,1) < > MIDS (LAST 
S,6,1) THEN PRINT :1 = I - 1: RE 
TURN 

PRINT HTS:P2S:HTS:P6S:HTS:P7S:HTS: 
P8S:ATS:P9S:HTS:P1S:HTS:PAS: RETU 
RN 

IF P1S < > MIDS (LASTS,1,5) THEN 

PRINT :I1 = I - 1: RETURN 

PRINT HTS:P1S:HTS;:P2S:HTS:P6ES:HTS: 
P7S:HTS;P8S:HTS;:P9SS:HTS:PAS: RETU 
RN 

IF P4S < > MIDS (LASTS,59,2) THE 
N PRINT :1 = I - 1: RETURN 

PRINT HTS;P48:HTS;:P2S:HTS:P6S:HTS: 
P7S:HTS:P8S:HTS:P9SS:HTS;:P1S:HTS;:P 
AS: RETURN 

IF RIGHTS (P65,1}) < > 
TS,27,1) THEN PRINT 
RETURN 

PRINT HTS$8:P6S:HTS:P2S:HTS:P7S:HTS: 
P8S:HTS:P9SS:HTS:P1S:HTS:P4S:HTS:P 
AS: RETURN 

IF P18 < > MIDS (LASTS,1,5) THEN 

PRINT :1 = I - 1: RETURN 

PRINT P1S8;: TBS:P2S;:TBS:P6S:TBS:P7S: 
TBS:P8S: TBS:P9S:TBS:P3S:TBS:PA4S:T 


MIDS (LAS 
slrs TE Le 


BS:PSS:HTS;PAS: RETURN 
PRINT DS: PRINT "ERREUR ‘“: PEEK (2 
22):" LIGNE ‘“; PEEK (218) + PEEK 
{219) # 256: STOP 
100 REM errrrrrennnnnenennane 
110 REM r CATALOGUE.. " 
Pom's n° 14 


120 


REM #*# GENERAL:UTILISATION* 


130 REM eeaananannannnannanene 

140 ÈONERR GOTO 580 

150 DS = CHRS (4) 

160 REM MODE D'EMPLOI 

170 HOME : HTAB 12 

180 INVERSE : PRINT “CATGEN‘":: NORMAL : 

PRINT ‘“ PERMET DE :" 

190 PRINT 

200 PRINT “ 1-*;: INVERSE : PRINT "CREE 
R“">;: NORMAL : PRINT ‘“ LE CATALOGU 
E D'UN ENSEMBLE DE DISQUETTES" 

210 PRINT “ 2-*;:: INVERSE : PRINT ‘"TRIE 
R'";: NORMAL : PRINT “ LES ELEMENT 
S DE CE CATALOGUE" 

220 PRINT “ 3-*;: INVERSE : PRINT “EDIT 
ER'";: NORMAL : PRINT ‘“ LES RESULT 
ATS DU TRI"* 

230 PRINT “ 4-";: INVERSE : PRINT “REAL 
ISER">;; NORMAL : PRINT “ LA MISE 
A JOUR DE CES “: PRINT “INFORMATI 
ONS" 

240 PRINT 

250 INVERSE : PRINT “CATGEN‘";: NORMAL : 

PRINT “ LIT LE CATALOGUE DES DIS 
QUETTES DITES STANDARD’ (DOS 3, 
SYET:" 

260 PRINT “PERMET LA SAISIE DES DONNEES 

CORRESPON-‘": PRINT “DANTES POUR 
LES DISQUETTES ‘SPECIALES’ (NON 
DOS 3.3 OU PROTEGEES)" 

270 PRINT 

280 INVERSE : PRINT “CATGEN‘“;: NORMAL : 

PRINT ‘“ TRAVAILLE SUR UN APPLE 1! 
I 48K . 1OU 2 LECTEURS , SUPPORTE 

UNE IMPRIMANTE‘: PRINT “ET PERME 
T DE GERER 1000 FICHIERS ENVIRON" 

230 GOSUB 590 

300 PRINT ‘“ LES INFORMATIONS MEMORISEES 

DANS LE" 

310 PRINT “FICHIER “;: INVERSE : PRINT 
“CATALOGUE GENERAL"; : NORMAL : PR 
INT “ SONT :" 

320 PRINT 

330 PRINT “ :i-LE “;: INVERSE : PRINT “N 
UMERO"";: NORMAL : PRINT ‘“ DE LA D 
ISQUETTE: 4 CARAC-": PRINT “TERES 

ET LE “;: INVERSE : PRINT "CODE" 
:: NORMAL : PRINT ‘“ DE LA FACE ’A 
» OÙ +» B LA LI 

340 PRINT “ 2-LE ‘“:: INVERSE : PRINT “N 
OM“ ;: NORMAL : PRINT “ DU FICHIER 
»LIMITE A 20 CARAC-": PRINT “TEÈRE 
S'* 

350 PRINT “ 3-LE “;: INVERSE : PRINT "T 
YPE'":: NORMAL : PRINT “ DU FICHIE 
R: AB TES ARE SAT ET -SON''E 
TAT ’LOCK’ OÙ *’UNLOCK”’" 

360 PRINT “ 4-LA “;: INVERSE : PRINT “T 
AILLE";: NORMAL : PRINT ‘“ DU FICH 
IER EN SECTEURS" 

370 PRINT “ S-L’‘';:: INVERSE : PRINT “AD 
RESSE";: NORMAL : PRINT “ DE CHAR 
GEMENT POUR LES PRO-GRAMMES BINAI 
RES" 

380 PRINT “ 6-LA “:;: INVERSE : PRINT ‘“L 
ONGUEUR"“; : NORMAL : PRINT “ DES P 
ROGRAMMES BINAIRES" 

3930 PRINT “ 7-LE ‘“;:: INVERSE : PRINT “N 
OM"“;: NORMAL : PRINT * D'UN FICHI 

Pons n 14 


400 


410 


420 


430 


440 


450 
460 


470 


480 


490 


500 


502 


S04 


506 


510 
520 


530 
540 
560 
570 
580 


590 


ER “;: INVERSE : PRINT "LIE"“;: NO 
RMAL : PRINT * :FICHIER DE LA ME 
ME DISQUETTE ASSOCIE AU FICHIER E 
N COURS" 


PRINT “ 8-LA “;: INVERSE : PRINT “C 
LASSE";: NORMAL : PRINT ‘’ DU PROG 
RAMME,CHOISIE DANS‘: PRINT “UNE L 
ISTE PERSONNALISABLE" 

PRINT ‘“ 9-LA “;: INVERSE : PRINT "D 
ATE*;: NORMAL : PRINT “* DU JOUR" 
PRINT “10O-LE “;: INVERSE : PRINT “L 
ABEL";: NORMAL : PRINT “ DE LA DI 

SQUETTE" 

GOSUB 5930 

PRINT “ L’ENCHAINEMENT DES OPERATIO 
NS EST :" 

PRINT 

PRINT “ -"“;: INVERSE : PRINT "INIT 
IALISATIONS*";: NORMAL : PRINT “: 
DU FICHIER ‘CATALOGUE GENERAL’ , 


DU NOMBRE DE LECTEURS , 
IMPRIMANTE (CHOIX 1)" 
PRINT “ -"“;: INVERSE : PRINT “SAIS 
1E“;: NORMAL : PRINT “ OÙ “;: INV 
ERSE : PRINT “MISE A JOUR"“;: NORM 
AL : PRINT “ DES FICHIERS": PRINT 
“(CHOIX 2 OU 3 SELON LA DISQUETT 
E>* 

PRINT “ -"“;: INVERSE : PRINT “DEFI 
NITION DES PARAMETRES DU TRI";: N 
ORMAL : PRINT “ ET TRI (CHOIX 5 
>;LE RESULTAT EST STOCKE “: PRINT 

"DANS LE FICHIER “;: INVERSE : P 


DU TYPE D 


RINT TRI“: NORMAL 
PRINT “ -"“;: INVERSE : PRINT “DEF 
INITION DU FORMAT D’EDITION“;: NO 


RMAL : PRINT “ PUIS EDITION SUR L 
E *’TERMINAL’ OÙ SUR L’IMPRIMANTE” 


(CHOIX 6)" 
PRINT * -LE *;: INVERSE : PRINT “C 
OMPACTAGE" ;: NORMAL : PRINT * DU 


FICHIER (CHOIX 4)": PRINT “EST A 
FAIRE APRES UNE OPERATION DE MISE 
À JOUR" 

INVERSE : PRINT “N.B:";: NORMAL : P 
RINT “S’IL Y A 2 DISQUES,LES DISQ 
UETTES A‘: PRINT ‘“ANALYSER SERONT 

MISES DANS L’UNITE “;: INVERSE : 

PRINT 2: NORMAL 

PRINT “L’UNITE “;: 

3: NORMAL : 

;: INVERSE : 
NAL.‘5: PRINT “ET LES" 

PRINT “DONNEES:";: INVERSE : PRINT 
“CATALOGUE GENERAL":: NORMAL : PR 
INT “ ET “;: INVERSE : PRINT "TRI 
“: NORMAL 

VTAB 23 

INVERSE : PRINT “RETOUR AU MENU (O/ 
N) 2*;: NORMAL : PRINT “ “;: GET 
28: PRINT 2S 

IF 28 = "“N" THEN END 

CCS = “CATGEN" 

PRINT DS*"RUN"CCS 

STOP 

PRINT DS: PRINT 
2):* LIGNE “; 
(219) » 256: STOP 

VTAB 23: INVERSE : PRINT “TAPER UNE 

TOUCHE POUR CONTINUER" ;: NORMAL 


INVERSE : PRINT 
PRINT * SUPPORTANT “* 
PRINT “CATGEN‘";: NOR 


“ERREUR ‘“; PEEK (22 
PEEK (218) + PEEK 


CO RRÉRISESSENNEERNNEE 


MAÉNESSSTESSSS 


es ER. 
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: PRINT “ “;: GET Z2$S: PRINT 2S 500 IF MIDS (STS,S5,1) = ‘“#* THEN 630 
600 HOME S10 Ni% = Nix + 1 
610 RETURN 520 ON TT GOTO 530,550,570,590,610 
530 STS(IN1%X) = MIDS (STS,11,20) + MIDS 
Re (STS,6,5) 
540 GOTO 620 
100 REM RRRRRRRRRRRRRIRERRRRR 550 STS(N1x) = MIDS (STS,6,25) 
110 REM #* CATALOGUE.. C) 560 GOTO 620 
120 REM * GENERAL:TRI C] 570 STS{NI%X) = MIDS (STS,69,12) + MIDS 
130 REM MU NN DE NE 06 DE DE DE D DE 90 D 96 DE D (STS,11,20) 
140 HIMEM: 38400 580 GOTO 620 
1530 ÈONERR GOTO 910 590 STS(N1X) = MIDS (STS,64,2) + MIDS 
24 160 DIM STS(1000) (STS,11,20) 
5 170 DIM S%x(1000) 600 GOTO 620 
ES 4 180 BS = CHRS (7) 610 STS(NI1IxX) = MIDS (STS,32,1) + MILS 
= | 190 DS = CHRS (4) (STS,11,20) 
3 200 FS = “CATALOGUE GENERAL* 620 HTAB 9: VTAB 20: PRINT DS: PRINT “A 
se 210 RDS = DS + “READ “ RTICLE “I 
pe 220 WRS = DS + “WRITE * 630 NEXT I 
== 230 GPS = DS + “OPEN “ 640 PRINT CLSFS 
| 240 CLS = DS + “CLOSE *“ 650 HOME : FLASH : VTAB 10: HTAB 16: PR 
5 250 DLS = D$ + “DELETE® INT “ T R I “; NORMAL 
#3 260 TRS = “TRI 660 X = FRE (O0) 
4 270 REM TRI... 670 PRINT BsS 
CE 280 HOME : VTAB 3 675 REM APPEL DE LA ROUTINE DE TRI 
290 HTAB 12: INVERSE : PRINT "“DEFINITIO | 680 POKE 964,(N1% / 256 - INT (N1x / 2 
N DU TRI*: NORMAL : PRINT 56)) »# 256 
300 POKE 34,4 690 POKE 965, INT (N1% / 256) 
310 PRINT : INVERSE : PRINT “1*:: NORMA | 700 CALL PEEK (175) + PEEK (176) »# 25 
L : PRINT “-PAR NOM DE FICHIER" 6 - 261STS(0),S%x(0) 
320 PRINT : INVERSE : PRINT “2"“:: NORMA | 710 PRINT BS 
L : PRINT ‘“-PAR NUMERO DE DISQUET | 720 VTAB 12 
TE* 730 PRINT “SAUVEGARDE DU RESULTAT DU TR 
339 PRINT : INVERSE : PRINT “3*;: NORMA I CO/N) ? “:: GET 2S: PRINT Zs 
L : PRINT ‘“-PAR LABEL DE DISQUETT 740 IF 2S = ‘“N* THEN 870 
E** 9750 IF 2$ < > “Q* THEN 720 
340 PRINT : INVERSE : PRINT “4"#5: NORMA | 760 PRINT 
L : PRINT “-PAR CLASSE DE PROGRAN 770 FLASH : PRINT “ECRITURE":: NORMAL : 
ME* PRINT * DANS LE FICHIER “:: INVE 
350 PRINT : INVERSE : PRINT “S":: NORMA RSE : PRINT TRS: NORMAL 
L : PRINT “-PAR TYPE DE FICHIER" 780 TRS = “TRI: PRINT OPSTRS: PRINT DLS 
360 VTAB 22: INVERSE : PRINT “LEQUEL (1 TRS: PRINT OPSTRS: PRINT WRSTRS 
5) 7“; NORMAL : PRINT * “:: GE | 730 PRINT N1x 
T 2S: PRINT 2S:TT = VAL (25) 800 FOR I = 1 TO Nix 
370 IF TT < 1 OR TT > S THEN 360 820 IF Sx(I) = O THEN N%x = LAST%: GOTO 
380 REM LECTURE DE F# DANS STS 840 
390 VTAB 18: FLASH : PRINT “LECTURE‘";: 830 N%x = SxX(I):LASTYX = N%x 
NORMAL : PRINT * DU FICHIER ‘“:: I | 840 PRINT N% + 1 
NVERSE : PRINT FS: NORMAL 850 NEXT I 
400 REM OUVRE FES 860 PRINT CLS 
410 PRINT OPSFS 870 VTAB 23: INVERSE : PRINT “RETOUR AU 
420 PRINT RDSFS:",RO": INPUT NO%: INPUT MENU (O/N) ?2*;: NORMAL : PRINT “* 
LO% “2: GET 2S$: PRINT 2S 
430 PRINT CLSFS 880 IF 2S = “N° THEN 270: REM REBOU 
440 PRINT OPSFS:;:",L°"*:LOx%x CLE 
450 STS(O) = “ 890 PRINT DS"RUN CATGEN® 
460 N1%x = O 900 STOP 
470 FOR Ii = 1 TO NO% - 1 310 PRINT DS: PRINT “ERREUR “: PEEK (22 
480 PRINT RDSFS:",R";1I 2):" LIGNE “; PEEK (218) + PEEK 
490 INPUT STS (219) # 256: STOP 
Programme SPEED SORT 1018- C2 03 8D C3 03 AD C1 03 
1020- 85 FC AD CO 03 85 FB A0 
1028- 02 A2 01 Bi FB 95 08 CA 
1000- 20 E3 DF 8D CO 03 8C C1 1030- 88 DO F8 À9 00 8D C8 03 
1008- 03 20 BE DE 20 E3 OF 8D 1038- 8D C9 03 AD CA 03 85 FD 
t010- CA 03 8C CB 03 ÀS 00 8D 1040- AD CB 03 85 FE AD C1 03 
ne 
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1048- 85 FA AD CO 03 85 F9 A0 
1050- 02 À2 01 Bi F9 95 06 CA 
1058- 88 DO F8 AD C4 03 8D Cé 
1060- 03 AD CS 03 8D C7 03 A0 
1068- 00 81 06 D1 08 DO 05 C8 
1070- CO 1E DO F5 FO O0 BO 08 
1078- EE C8 03 DO 03 EE C9 03 
1080- 18 ÀS F9 69 03 85 F9 ÀS 
1088- FA 697 00 85 FA 0 02 A2 
1090- 01 Bi F9 95 06 Cf 88 DO 
1098- F8 18 BO 9/7 CE Cé 03 DO 
1040- 03 CE C7 03 AD C7 03 10 


100 REM sensnnnanpssnsannnssn 
110 REM + CATALOGUE... » 
120 REM # PHASE: SAISIE # 
130 REM #0 0 + 0e 0e 0e se se 00 0e se se se 0e 0e 0e 5e 5e 
140 REM BUFFER EN ‘9400 
150 HIMEM: 37888 
160 ONERR GOTO 2900 
170 DIM NAS(100),TPS(100),SE(100),CAS(1 
00) 
180 DIN PI(100),AS(100),LGS(100),TA(100 
),NLS(100) 
1930 REM NAS=NOM DES FICHIERS 
200 REM TPS=TYPE DES FICHIERS 
210 REM SE-=AD. SECTEUR 
220 REM PI=NUM. DE PISTE 
230 REM AS=ADR.CHARGEMENT DES PROG. BIN 
AIRES 
240 REM LGS=LONGUEUR DES PROG. BINAIRES 
250 REN TA=TAILLE DES FICHIERS 
260 DIM STS(100) 
270 GOSUB 2910: REM S.P. DE LECTURE 
RWTS” 
280 DEF FN X(CA) = (176 + A) * (A - 9 < 
= O0) + (183 + A) = (A - 3 > O) 
290 V20$ = “ “: REM 
20 ESPACES 
300 DS = CHRS (4) 
310 FS = “CATALOGUE GENERAL°® 
320 RDS = DS + “"READ 
330 WRS = DS + “WRITE “ 
340 OPS = DS + “OPEN “* 
350 CLS = DS + “CLOSE * 
360 DLS = DS + “DELETE® 
370 REM LECTURE DE LA DATE =>DAS 
380 FOR I =: 1 TO 8 
390 DAS = DAS + CHRS ( PEEK (800 + I)) 
400 NEXT I 
405 DK = PEEK (810) 
410 TT = PEEK (809) - 2: GOTO 1920 
420 REM BOUCLE DE CATALOG 
430 VTAB 4: HTAB 10: VTAB 11: FLASH : P 
RINT "“LECTURE“";: NORMAL : PRINT “ 
DU CATALOGUE" 
440 SE = 15 
450 AI = 768: POKE AI + 15,SE: POKE AI + 
14,17 
460 CALL AI 
Pom's n° 14 


1048- BE AD Cé 03 10 B9 OE C8 
10B0- 03 2E C9 03 18 ÀS FD é6D 
10B8- C8 03 85 FD ÀS FE 6D C9 
10C0- 03 85 FE 40 00 AD C3 03 
10C8- 91 FD C8 AD C2 03 91 FD 
10D0- EE C2 03 DO 03 EE C3 03 
10D8- AD CS 03 CD C3 03 DO 09 
10E0- AD C4 03 CD C2 03 80 01 
10E8- 60 18 ÀS FB 69 03 85 F8 
10F0- ÀS5 FC 69 00 85 FC À0 02 
10F8- 42 01 Bi FB 95 08 CA 88 
1100- DO F8 38 BO 95 


470 
480 
490 
500 
510 


520 
530 


540 


550 


560 


570 
580 
590 


600 


610 
620 
630 
640 
650 


660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


760 
770 


780 
790 
800 
810 
820 


830 


: 
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ZT = 37902: REM ZT=’9400+14 
NAS = ** 

FOR I = 1 TO 7 

J1 = ZT + 35 » (I - 1) 

FOR J = J1 TO J1 + 20: REM POUR 20 
CAR. MAX 

AC = PEEK (J) 

IF J - J1 zx O AND AC = O THEN 750: 
REM TEST DE FIN DE CATALOGUE 

IF PEEK {(J - 3) = 255 AND J - J1 = 

OC THEN 720: REM TEST DE FICHIER 
* DELETED* 
IF AC = 34 OR AC = 128 + 34 THEN AC 
zx 39: REM REMPLACE * PAR ‘’ 
NAS = NAS + CHR& (AC - 128 »# (AC > 
128) }: REM CONSTITUTION DU NO 
M DE FICHIER 
NEXT J 
NF = NF + 1 
PICNF) = PEEK (J1 - 3):S5E(NF) = PE 
EK (J1 - 2) 

IF LEN (NAS) > 20 THEN NAS = LEFT 

S (NA93,20) 
NAS(NF) = NAS 
Al = PEEK (J1 - 1) 
TACNE) = PEEK (J1 + 30) 
NAS = ‘""©:TPS = " 

IF A1 > = 128 THEN A1 = Al - 128:T 
P& = ‘‘«‘’: REM TEST DE FICHIER ’L 
OCKED”’ 

IF A1 = O THEN TPS = TPS + "“T" 

IF A1 = 1 THEN TPS = TPS + “1" 

1F A1 = 2 THEN TPS = TPS + “A 

1F A1 = 4 THEN TPS = TPS + “B°" 

IF Al = 16 THEN TPS = TPS + “R"“* 

TPS(NF) = TPS 
NEXT I 
SE = SE - 1: POKE AI + 15,SE 

GOTO 460 

REM CALCUL DE ADR ET LONG DES FICH 
IERS BINAIRES 

FOR I = 1 TO NF 

IF TPS(I) = “ B* OR TPS(I) = “«B*“ T 
HEN GOSUB 820:A8(I1) = ARS:LGS(1) 

# LGS: GOTO 790 
ASCT)- = MESSE ELGSCI) = "ess." 

REM CALCUL DE ADS ET LGS 

NEXT I 

RETURN 

POKE AI + 14,PI(I): POKE AI + 15,SE 
(1) 

ZT = 37888 


63 


840 
850 
860 
870 
880 
890 


300 
310 
320 


930 
æ 940 
… 950 


; 
us 


360 
370 
380 


nURERR 


ann 
HOANSLANTEUMN 


9390 
1000 
: 1010 
Hs 1020 


1030 


1040 
1050 


1060 
1070 
1080 
1090 


1100 
1110 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1210 
1220 
1240 
1250 


1260 
1270 
1280 
1290 
1292 
1294 
1296 
1300 
1310 
1320 


1330 


CALL AI 
POKE AI + 15, 
CALL AI 
AA = PEEK (ZT + 1) 
A = INT (AA / 16):B = 
AS = CHRS € FN X(A)} + 
(B)) 
AA = PEEK (ZT) 
A = INT (AA / 16):B = AA - A »# 16 
ARS = AS + CHRS © FN X(CA)} + CHRS 
C FN X(B)) 
AA = PEEK (ZT + 3) 
A = INT (AA / 16):B = 
AS = CHRS (€ FN X(CA)} + 
(B)) 
AA = PEEK (ZT + 2) 
À = INT (AA / 16):B = 
LGS = AS + CHRS ( 
€ FN X(B)) 
RETURN 
REM AFFICHAGE 
HOME 
INVERSE : 
NORMAL : 
DS,4) ; 
KTAB 30: INVERSE : PRINT “FACE :°": 
: NORMAL : HTAB 37: PRINT RIGHTS 
(NDS ,1) 
INVERSE : 
HTAB 16: 


PEEK (ZT + 13) 


AA - À » 16 
CHRS ( FN X 


AA - À » 16 
CHRS € FN X 


AA - À » 16 
FN XCAD> + CHRS 


PRINT “DIS@UETTE : “:;: 
RHTAB 16: PRINT LEFTS 


PRINT "LABEL Dre RE 

NORMAL : PRINT LBS 
INVERSE : PRINT "NB. FICHIERS:";: 
NORMAL : HTAB 16: PRINT NF 
GOSUB 1070: GOTO 1180 

REM NOM DES RUBRIQUES 

VTAB 15: RESTORE 
READ 26: IF 2S « 
© 

FOR I = 

READ 25: 


> "RUB" THEN 109 
1 TO 16 STEP 2 
IF I < 10 THEN PRINT * “ 
PRINT 1l:"-":28; 
HTAB 20 
READ 25: 
PRINT I + 
NEXT I 
RETURN 
POKE 35,14 
CV = 12 
VTAB 6: CALL - 958 
PRINT "FICHIER" 
INVERSE 
PRINT “NOM Fr 


IF I < 9 THEN PRINT “ “; 
1:"-".25S 


PRINT “TYPE 


PRINT 


PRINT 
PRINT 
NORMAL 
FOR I = 1 TO NF 

VTAB 6: HTAB CV: PRINT I 
FOR J = 1 TO 7: VTAB 6 + 
V: CALL - 868: NEXT J 
VTAB 7: HTAB CV: IF TT = 
RINT NAS(I): GOTO 1330 
INPUT ‘““":°NAS: IF LEN (NAS) = O TH 
EN VTAB 7: HTAB CV: GOTO 1310 
FOR N = LEN (NAS) TO 19S:NAS = 

+ “ “; NEXT N:NAS(I) NAS 

VTAB 8: HTAB CV: IF TT O THEN P 


“TAILLE “: PRINT “ADRESSE 


“LONGUEUR “: PRINT “FICH.LIE 


"CLASSE Le 


J: HTAB C 


O THEN P 


NAS 


nu 


ARE 
CLR SL SL LS 2: |: : |: | 
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1340 


1350 


1360 
1370 


1380 
1390 


1400 
1410 


1420 
1430 


1440 


1450 
1460 


1470 


1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 


1560 


1570 
1580 


1590 


1600 
1610 


1630 
1640 


1650 
1655 


1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


RINT TPS(I1): GOTO 1360 
INPUT “":TPS$: IF LEN (TPS) = 1 TH 
EN TPS(I) = * * + TPS 
T$ = RIGHTS (TPS,1): IF TS < > ‘A 
“ AND TS < > “B" AND TS < > “I” 
AND TS < > “R"® AND TS < > "T" 
THEN 1330 
VTAB 9: HTAB CV: IF TT = O THEN P 
RINT TA(I): GOTO 1400 
INPUT "‘‘:TAS: IF VAL (TAS) = O TH 
EN 1360 
TA{ID = VAL (TAS) 
IF TT = 1 AND T& < > “"B“ THEN AS( 
1) 3 “....":LGS(1) = “....": GOTO 
1460 
VTAB 10: HTAB CV: IF TT = O THEN 
PRINT A#(I1): GOTO 1430 
INPUT ‘*"*:AS(1)D: IF LEN (AS(I)D) = 
© THEN AS(I) = “....* 


IF LEN (AS(I1)} < 4 THEN 1400 

VTAB 11: HTAB CV: IF TT = O THEN 
PRINT LGS(I): GOTO 1460 

INPUT ""“;LGS(I): IF LEN (LGS(I)) 
= O THEN LGS(1) = “...." 

IF LEN (LGS(I)) < 4 THEN 1430 


IF CGS = “O" THEN NLS(I) = V20S:CA 
S(1)2 = GHS: VTAB 13: HTAB CV: PRI 
NT GHS$: GOTO 1630 

VTAB 12: HTAB CV: PRINT V205;:: VTA 
B 12: HTAB CV: INPUT ‘":NS:NLS = 
NS: FOR N = LEN (NS) TO 19:NLS = 

NLS + ‘ “: NEXT N 

IF LEN (NS) = O THEN NLS = V208: 
GOTO 1540 

REM TEST EXISTENCE DE FIC. LIE 

FOR J = 1 TO NF 

IF NLS = NAS(J) THEN 1540 

NEXT J 

GOTO 1470 

NLS(I) = NLS 

VTAB 13: HTAB CV: PRINT * “ss: H 

TAB CV: INPUT ‘";CAS 


IF LEN (CAS) = O AND LEN (GHS) < 
> O THEN VTAB 13: HTAB CV:CAS 
* GHS: PRINT CAS: GOTO 1600 
IF LEN (CAS) < > O THEN 1600 
IF LEN (CAS) = O AND I = 1 THEN 1 
550 
IF LEN (CA&) = O AND I > 1 THEN C 
AS = CAS(I - 1): VTAB 13: HTAB CV 
: PRINT CAS 
CL = VAL (CAS): 
16 THEN 1550 
CAS(I) = STRS (CL): IF CL < 9 THEN 
CAS(1) = “O" + CAS(I) 
IF CGS = “O" THEN 1660 
VTAB 23: INVERSE : PRINT 
OU ‘ESC*)?7";: NORMAL : 
RINT “ “;: GET 28 
IF 2S "N" THEN 1470 
IF 25 CHRS (273 THEN NAS(I)D = * 
NEXT I 
POKE 34,2: POKE 35,24 
RETURN 
REM CONSTITUTION DE L'ARTICLE 
REM NOS(4)=-NUMERO D’ARTICLE 
REM NDS (4) =NUMERO DE DISQUETTE 
REM FAS(1):FACE A/B 
REM NAS(20)=NOM DU FICHIER 


IF CL < 1 OR CL > 


“OK (O/N 
HTAB 18: P 
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1740 REM TPS(2)=TYPE DU FICHIER 
1750 REM TAS(3)=TAILLE EN SECTEURS 
1760 REM ADS(4)=ADRESSE DE CHARGEMENT 
1770 RENM LEGS (4) =LONGUEUR 
1780 REM NLS(20)=FICHIER LIE 
1790 REM CAS(2)=CLASSE DU PROG. 
1800 REM DAS(8)=-DATE 
1810 REM LBS(12)=LABEL DISQUETTE 
1820 TAS = STRS (TA(I)})2:L = LEN (TAS): 
IF L = 3 THEN 1900 
1830 FOR N = L TO 2:TAS = “ *” + TAS: NE 
XT N 
1900 STS = NDS + NAS(I) + TP&(I) + TAS + 
ASCI) + LGS(I) + NLS(I) + CAS{(I) 
+ DAS + LBS 
1910 RETURN 
1920 REM MISE A JOUR GLOBALE 
1930 PC% = O:ID = O 
1940 HOME :TS = *“*SAISIE/MISE A JOUR‘: H 
TAB 20 - LEN (TS) / 2; INVERSE : 
PRINT TS: NORMAL : PRINT 
1950 IF TT = 1 THEN 1970 
1960 PRINT ‘“MONTER LA DISQUETTE ‘';: INV 
ERSE : PRINT ‘A ANALYSER‘": NORMAL 
: PRINT “SUR LE DRIVE ‘“:: INVER 
SE : PRINT DK:: NORMAL : PRINT * 
ET TAPER ‘’RETURN'‘';:: GET 2S: PR 
INT 2sS 
1370 VTAB 5: CALL - 958: PRINT “EST-CE 
UNE NOUVELLE DISQUETTE (“:;: INVE 
RSE : PRINT “O/N'‘:: NORMAL : PRIN 
T “) 2 “;:: GET 2S: PRINT 2s 
1980 IF 2S < > “O" AND 2S < > “N' THE 
N 1970 
19930 MA = O» (2$S = “"O"} + 1 = (2S = ‘“N* 
2 
2000 NF = © 
2010 REM LECTURE DANS NDS=NO DIS@UETT 
E-FACE 
2020 VTAB 6: INPUT ‘NUMERO DE LA DISQUE 
TTE : “:NDS 
2030 IF LEN (NDS) = O OR LEN (NDS) > 
4 THEN 2020 
2040 IF LEN (NDS) = 4 THEN 2060 
2050 FOR I = 3 TO LEN (NDS#) STEP - 1: 
NDS = “O" + NDS: NEXT I 
2060 VTAB 7: HTAB 10: PRINT ‘“ FACE ( A 
OU B >) : ‘“:: GET FAS: PRINT FAS 
2070 IF FAS < > “A AND FAS « > "“B"T 
HEN 2060 
2080 NDS = NDS + FAS 
20930 VTAB 8: INPUT “LABEL DISQUETTE(O.. 
12 CAR): ‘“:LBS 
2100 IF LEN (LBS) > 12 THEN 20930 
2105 IF LEN (LBS) = 12 THEN 2120 
2110 FOR N = LEN (LBS) TO 11:LBS = LBS 
FPS NEXT CN 
2120 VTAB 13: INVERSE : PRINT “CLASSE D 
ES fICHIERS®": NORMAL : GOSUB 1070 
: VTAB 9: INPUT “CLASSE DES FICHI 
ERS(1..16): “:GHS: IF LEN (GHS) 
= © THEN 2170 
2130 GH = VAL (GH$): IF GH < 1 OR GH > 
16 THEN 2120 
2140 GHS = STRS (GH): IF GH < S THEN GH 
S = “O" + GHS 
2150 VTAB 10: PRINT ‘“EST-ELLE GLOBALE ( 
O/N) ? : “s: GET CGS: PRINT CGS 
2160 PRINT 
2170 IF TT = 1 THEN INPUT ‘“COMBIEN Y-A 
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2180 NDS(ID) 


2190 


2200 
2210 
2220 


2230 
2235 
2240 
2250 
2260 
2270 
2280 


2290 


2300 
2310 


2320 
2330 


2340 
2350 


2360 


2370 
2380 


2400 
2410 
2420 
2430 


2450 
2460 


2470 
2480 
2490 
2500 
2510 
2520 
2530 


2540 
2550 
2560 


2570 
2580 
2590 
2600 
2610 
2620 
2630 


-T-1L DE FICHIERS ? “:NFS:NF = V 
AL (NFS): IF NF = O THEN 2170 
= ND&:1ID = ID + 1 
IF TT = © THEN GOSUB 420: 
CTURE DU CATALOG 
GOSUB 1000: REM AFFICHAGE 
REM TRANSFERT DE STS DANS STS(K) 
REM PC%*=POINTEUR COURANT DANS S 
TS(K) 
J = O:I = 1 
1F LEN (NAS(1I)} = 
GOSUB 1820:J = J + 


REM LE 


O THEN 2260 
1 


STS(J + PC%x) = STS 
1 = I + 1: IF I < = NF THEN 2235 
PC%x = PCX + J 
HTAB 1: VTAB 23: CALL - 868: HTAB 
30: PRINT “TAUX: “PCx"x": VTAB 2 
3: INVERSE : PRINT “ENCORE (O/N) 
? “};: NORMAL : PRINT “ ‘“;: GET 2s 
: PRINT 25; 
IF 48 < > “O" AND 2$ < > “N" THE 
N 2280 
IF 28 = “O“ THEN 1940 
VTAB 23: CALL - 868: HTAB 1: INVE 
RSE : PRINT “ECRITURE SUR DISQUET 
TE CO/N)+RETURN ?";3: NORMAL : INP 
UT * “;258 
1F 28 < > “O" AND 28 < > “N'" THE 
N 2310 
IF 28 = “O* THEN GOTO 2350: REM 


MISE A JOUR DU FICHIER 

GOTO 2830 

REM DEBUT DE LA SESSION DE SAISIE 
/MISE A JOUR 

HOME : HTAB 10: INVERSE : 
AISIE/MISE A JOUR“: NORMAL : 
T 

IF PEEK (810) = 2 THEN 2410 

PRINT ‘“MONTER LA DISQUETTE “:: INV 
ERSE : PRINT "PROGRAMME": NORMAL 
: PRINT “SUR LE DRIVE “;: INVERSE 

: PRINT 1;: NORMAL : PRINT ‘“ ET 

TAPER RETURN’: 


PRINT "S 
PRIN 


GET 268: PRINT 25 

IF MA = O THEN 2620 

REM MARQUAGE POUR EFFACER 

PRINT : FLASH : PRINT “MARQUAGE DE 


S FICHIERS A SUPPRIMER": 
PRINT OPSFS 
PRINT RDSFS;",RO°": 
NOx 
INPUT LOXx 
IF NO%x = 1 THEN 2610 
PRINT CLSFS 
PRINT OPSFS;:",L";LOXx 
FOR IN = 1 TO N1%x - 1 
PRINT RDSFS;",R":IN 


NORMAL 


INPUT NOX:N1%x - 


INPUT S1S:NNDS = MIDS (51$,6,5): 
REM &N.DISK 
FOR IK = O TO ID 


IF ND&(IK) < > NNDS THEN 2590 
STS = CHRS (34) + LEFTS (S15,4) + 
“#" + RIGHTS (51$,LOx - 7) 
PRINT WRSFS;",R'";IN 
PRINT ST&# 
NEXT IK 
NEXT IN 
PRINT CLSFS 
REM MISE A JOUR DU FICHIER 
VTAB 10: FLASH : PRINT "ECRITURE": 


325 
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: NORMAL : PRINT “ DANS “:: INV OUCLE 
ERSE : PRINT FS$: NORMAL 2850 VTAB 4: CALL - 958 
2640 REM OUVERTURE DE FS$ 2860 IF PEEK (810) = 1 THEN PRINT : P 
2650 PRINT OPSFS RINT ‘“HONTER LA DISQUETTE ‘“;: INV 
2660 PRINT RDSFS;",RO": INPUT NOx:N1% = ERSE : PRINT ‘“PROGRAMME‘": NORMAL 
NOx : PRINT “SUR LE DRIVE “;: INVERSE 
2670 INPUT LOx% : PRINT 1;:: NORMAL : PRINT “ ET 
2680 PRINT CL&FS TAPER ’RETURN’‘*;:: GET ZS: PRINT Z 
2630 PRINT OPSFS:",L";:LO%x $ 
2700 FOR I = 1 TO PCx% 2870 CCS = “CATGEN" 
2710 NOS = STRS (NO%):L = LEN (NOS): F | 2880 PRINT DS"RUN"CCS: STOP 
OR N = L TO 3:N0S = "“O" + NOS: NE | 2960 PRINT D$: PRINT “ERREUR ‘“; PEEK (2 
XT N 22):" LIGNE “; PEEK (218) + PEEK 
2720 STS = CHR& (34) + NOS + “ * + STS( (219) »# 256: STOP 
LESTS CL) EN Ne 29310 REM INIT. SEQUENCE ‘’RWTS* 
2730 PRINT WRSFS:",R":NO% 29320 RESTORE 
É 2740 PRINT STS 2930 FOR I = O TO 30: READ ML: POKE 768 
É 2750 NO% = NO% + 1 + I,ML: NEXT I 
Es 2760 NEXT I 2940 DATA 169,3,160,10,32,217,3,96,0,0, 
Er 2770 PRINT CLSFS 1,96,1,0,17,15,27,3,0,148,0,0,1,0 
É! 2780 PRINT OPSFS ,0,96,1,0,1,239,216 
Es 27930 PRINT WRSFS:',RO" 2950 POKE 780, PEEK (810) 
HS 2800 PRINT NOX%: PRINT LOx% 2960 RETURN 
Ér-s 2810 PRINT CLSFS 29370 DATA RUB 
re 2820 PRINT : PRINT “IL YŸ A “:NO% - 1:;:" 2980 DATA REFERENCES, SYSTEME,UTILITAIRE 
ARTICLES." »PROCEDURE,JEUX REFLEXION,JEUX AD 
2830 VTAB 23: CALL - 958: INVERSE : PR RESSE 
INT “RETOUR AU MENU (O/N) ?";:: NO | 2990 DATA GRAPHIQUE 1,GRAPH 2,EDUCATIF 
RMAL PRINT “ “z:;: GET Z$#: PRINT »: GEOGRAPHIE,MATHS 1,PHYSIQUE,MUSI 
25; QUE 
2840 IF Z2S = “N'“ THEN 1920: REM ON REB | 3000 DATA DONNEES,GESTION, DIVERS 





GAGNEZ 


EN ACHETANT 


VOS LOGICIELS PAR CORRESPONDANCE ! 


Extrait de nos tarifs : 


PIE:WRITER 
THINKTANK 
OMNIS 1 
EPISTOLE //c (souris) 
PFS: WRITE 


COMPTABIHLITE CYRUS 
EDI-LLOGO 
SARGON III 

FLIGHT SIMULATOR 11 
SORCELLERIE 1 
SORCELLERIE 2 


INFOSOFT 


BP 516 
75066 Paris Cedex 02 


PFS: GRAPH 

VISICALC AVANCE //e 

CX BASE 200 + CX TEXTE 
DBASE Il (CP/M) 

FRIDAY (CP/M) 


* Plus où moins selonle produit. 


Tous nos envois sent en recommandé Les frais de port sont 
inclus. Envoyez votre commande accompagnée d’un chèque ban- 
caire ou #ostal à l’ordre de INFOS@FT, en précisant votre configu- 
ration et votre type de matériel. Tous ces logiciels sont destinés à 
l'APPLE //. Pour tout renseignement ou pour recevoir ñnos tarifs 
cornplets, écrivez-nous à l'adresse ci-contre. 
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Koala Pad est un logiciel éditeur de 
dessins et graphiques. vendu d'ori- 
gine avec une disquette et une ta- 
blette sensitive, au prix de 1600 FF 
TTC. Ce qui le distingue des autres 
programmes de création graphique, 
c'est avant tout sa simplicité de mise 
en oeuvre. Îl comporte un pro- 
gramme extrêmement rapide conte- 
nant toutes les commandes graphi- 
ques haute résolution (HGR) Il 
requiert un Apple ll ou /e avec 48 
Ko de mémoire centrale et un lecteur 
de disquettes. Néanmoins. pour en 
faire un out] de travail. il est préféra- 
ble de disposer de deux lecteurs de 
disquettes. Le copyright est de ”Îs- 
land Graphics” et la diffusion assurée 
par “Technology Corporation” 


La tablette sensitive se connecte sur 
la sortie manette de jeux de l'Apple. 
La version que j'ai testée était modi- 
fiée de façon à utiliser le joystick //e. 
rendant le programme plus perfor- 
mant et plus souple à l'emploi. L'es- 
sai à été fait sur un Apple //e. mais 
l'utilisation est possible sur tout Apple 


L'abord du logiciel est assez aisé, et 
l'on acquiert très vite la maîtrise de 
l'ensemble des fonctions. On peut di- 
viser Koala en deux parties distinc- 
tes: les fonctions utilitaires et les 
fonctions graphiques. 


Fonctions utilitaires 


L'appel de cette rubrique affiche un 
menu global à l'écran : 


Clatalog 

Utilitaires étendus 
Load 

Slave 


Trois de ces fonctions sont bien 
connues de nos lecteurs. La fonction 
“Utlitaires étendus”. quant à elle, af- 
fiche un sous-menu : 


Lock 

Uhlock 

Vherifu 

Rjename 

Djelete 

Flormat data disk 


Cette dernière fonction permet de 
formater une disquette sans le DOS 
(pour gagner de la place). avec au 
maximum une disquette ’’gonf.ée” 
de 528 sec. pour stocker vos chef- 
d'oeuvres. 

En somme, le concepteur n'a pas 
oublié les fonctions élémentaires du 
DOS, qui font parfois défaut sur des 
programmes d’un niveau supérieur. 


Fonctions graphiques 


Lorsque le programme est chargé en 
mémoire, l'écran affiche un menu 
très complet sous forme d’un ta- 
bleau. Aucune connaissance en infor- 
matique n’est requise pour utiliser le 
programme. 
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Il y à 15 instructions de base (qui 
rappellent beaucoup les fonctions 
graphiques de LISA par leur simpli- 
cité) et une palette de 16 couleurs. Il 
existe en outre une fonction "CUR- 
SOR”, qui permet de modifier la 
structure du curseur, en forme de 
point ou de croix, ce qui facilitera le 
pointage sur la page HGR. En der- 
nier, nous trouvons la foncton 
"BRUSH SET”. qui donne la possi- 
bilité de dessiner comme si l’on avait 
un pinceau à la main. 


Détaii des fonctions graphiques 


DRAW : dessin en continu. 
POINT : dessin de points. 


LINE: dessin de traits On pointe 
l'origine puis. en se déplaçant sur 
l'écran à l’aide du joustick, la fin du 
trait. Celui-ci est alors obtenu en ap- 
puvant sur le bouton @. 


LINES : semblable à la fonction 
"LINE”, avec la différence que l’ori- 
gine de chaque trait est la fin du trait 
précédent. 


RAYS : tracé de rayons à partir d'un 
centre. Cela aboutit à de beaux effets 
spéciaux: on pointe l'origine. puis 
l'on trace des traits partant de cette 
origine, avec des longueurs réglables. 


FILL : remplit un dessin (éventuelle- 
ment l'écran entier) avec la couleur 
choisie. La surface à remplir doit être 
délimitée par un trait continu: sinon, 
il risque d'y avoir des surprises (rem- 
plissage intempestif de toute une 
zone connexe). 


FRAME : tracé de rectangles. Il suffit 
de pointer un sommet et d'ajuster la 
surface (longeur et largeur) avec le 
manche du joystick: on confinne 
avec le bouton 0. lorsque la figure 
obtenue est adéquate. 

BOX: équivaut à FRAME” puis 
"FILL?” Création d'un rectangle 
plein 

CIRCLE : tracé de cercles. On pointe 
le centre du cercle, puis on délimite 
le rayon avec le joystick. 

DISC : équivaut à "CIRCLE” puis 
°FILL”. Création d'un disque plein. 
ERASE - annule le dessin en cours, 
en remplissant l'écran de la couleur 
choisie. 

STORAGE donne accès aux fonc- 
tions utilitaires décrites plus haut. 
NORMAL: mode d'utilisation nor- 
male, c'est-à-dire à l'échelle 1. 
MAGNIFY mode loupe. Ce mode 
d'utilisation agrandit le dessin afin de 
faciliter la correction des défauts, 
comme dans le fameux Pinball Cons- 
truction Set, ou comme Micro Pain- 
ter. Trés utile. 


Utilisation de la couleur 


Le choix des couleurs se divise en 
deux groupes de couleurs. le "color 


Koala pad 


Marcel Cottini 


set 1” et le ”’color set 2”. Les habi- 
tués du graphisme couleur sauront 
de quoi il retourne. Pour les non-ini- 
tiés, voici un petit rappel. 


L’Apple utilise pour son graphisme 
deux pages en haute résolution, la 
page 1 ($2000-$3FF7) et la page 2 
($4000 à $5FF7). Chaque série de 7 
points sur une même ligne de l'écran 
correspond à un octet en mémoire. 
Un point est allumé lorsque le bit 
correspondant est à 1. Une ligne est 
donc formée de 40 séries de 7 points 
(280 points par ligne en HGR). Voir 
à ce sujet ‘Graphiques: de lITT 
2020 à l'Apple” et "Les adresses du 
graphique”, publiés dans le Pom's 1. 


Le bit de poids fort de chaque octet 
{bit numéro 7) n'est pas visualisé, 
mais il conditionne en parte fa cou- 
leur des 7 points liés à Foctet dont il 
fait parte. Ainsi, si le bit 7 est à O, 
tout point isolé correspondant à cet 
octet et situé en colonne paire appa- 
raît violet: en colonne impaire, il ap- 
paraît vert. Si le bit 7 est à 1, les 
points isolés en colonne paire appa- 
raissent bleus, ceux en colonne im- 
paire apparaissent rouges. Si deux 
point ou plus sont côte à côte sur 
une même ligne. ils apparaissent 
blancs même s'ils ne dépendent pas 
du même octet. Pour de plus amples 
précisions, vous pouvez aussi vous 
reporter au manuel de référence de 
l'Apple Il 


Ceci nous amène à déborder un peu 
du sujet, mais explique l'existence de 
deux gammes de couleurs. Une pré- 
caution s'imposera donc lorsque 
vous travaillerez sur un graphique. 
c'est de toujours utiliser une couleur 
appartenant au même ‘SET que la 
couleur du fond. Vous éviterez ainsi 
les bavures et mélanges de couleur 
indésirables. 


Fonction Menu/Page 
graphique 


Lorsque le programme est lancé. un 
menu sous forme de tableau s'affiche 
à l'écran. représentant les symboles 
et repères des différentes fonctions à 
votre disposition. Pour sélectionner 
une fonction donnée. il suffit de pla- 
cer le curseur (matérialisé par un 
point} à l’aide du jovstick sur le sym- 
bole de votre choix. 


Exemple: pour dessiner un cercle. 
vous choisissez successivement la 
couleur de fond. la finesse du trait, la 
couleur du trait et enfin la fonction 
*CIRCLE”. 

Une fois votre choix arrêté, vous 
pointez le curseur au bas de l’écran 


| 
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(RETURN TO PICTURE}. puis vous 
confirmez en appuyant sur le bouton 
O du joystick. C'est tout. Il ne restera 
plus qu à faire la preuve de vos pos- 
sibilités artistiques. Chaque image 
ainsi créée occupera 33 secteurs sur 
la disquette Un dessin peut toujours 
être modifié à volonté par la suite. 


Evaluation générale 


Avantages Simplicité d'emploi. 
grande souplesse d'utilisation,  ri- 
chesse des movens d'investigation 
Instructions puissantes et variées. Un 
“must pour teut programmeur vou- 
lant personnaliser ses disquettes avec 
ses créations artistiques 


Inconvénients ; Il manque la repro- 
duction d'image sur imprimante 
(hard copy), ce qui n'est vraiment 
pas un handicap: on peut toujours 
imprimer par la suite avec un pro- 
gramme de hard copy. À noter: 
quelques temps d'attente lors du 
chargement du programme et des 
graphiques. düs au DOS 33 stan- 
dard utilisé, les propriétaires de DOS 
rapides (David-Dos. Turbodos. DOS 
3.4 et autres) pourront remplacer le 
DOS 3 3 par celui de leur choix. 


Conclusion - Les avantages l'em- 
portent très nettement sur des incon- 
vénients somme toute mineurs. Cha- 
cun peut d'ailleurs apporter les 
modifications de son choix et person- 
naliser son “Koala Pad” B 


INFORTEC 


Institut de Formation 
10, rue Saint-Marc - 75002 PARIS 
Tél. 508 96 94 


IX 3 


INITIATION A L'INFORMATIQUE 
Matériel utilise : IBM PC et APPLE Il 


PROGRAMMATION 


ET GESTION INFORMATIQUE 
Travaux pratiques sur micro-ordinateurs 


UTILISATION DE LOGICIELS 
Multiplan, d Base Il, Lotus L.IL.1H.,... 
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KIT ZD 103** 
Boitier + clavier 
+ carte mère 64 K 
+ alimentation 5 A 


5190 F 


KIT ZD 103 
Boitier + clavier détachable 
26 touches de fonctions 


1699 F 


SUPER PROMO 
KIT ZD 103°" 
Boilier + Clavier 
+ carte mère 
+ alimentation + 1 drivé 


; 
f; KIT ZD 101 
s ; Boitier + clavier 


5 1. à 58 touches de a | 
FÉES haque élément peut être 
CARTE MÈRE** VER SÉRE IE UERL > 
28K! ___ 2460F 1349F 


NA 
PE Four UPER PROMO 
KIT 2D f01°* 
. Boîtier + clavier 
+ carte mère 48 K 
JOY STICK FER + alimentation 5 À, 


luxe 199 F SUPER PROMO 
BOITE DE RANGEMENT DRIVE 
100 DISQUETTES Floppy disque 
ji 175F 5°: ___1900F 
8" nous consulter 


e CARTE CONTROLEUR _____ 420F © ALIMENTATION 5 A 


5 


+ contrôleur CLAVIER DÉTACHABEE e CARTE IMPRIMANTE - 16K buller _ 1360 F © VISU12" VERTE __ 
+ 1visu 12!" verte Vendu séparément avec © CARTE HORLOGE __ e DISQUETTE pour Floppy. les 10 
7490 F Ou Sans habillage e CARTE PARALLÈLE _ e IMPRIMANTE 80 COL. CP 80 
26 touches de fonctions e CARTE RVB __ © VENTILATEUR EXTÉRIEUR 
+ pavé numérique © CARTE Z80 ____ 2 © VENTILATEUR INTÉRIEUR 
avec habillage 1080 F e CARTE 80 COL. ___ = e MONIBASE Support de visu orient 


sans habillage 799F 


BON DE COMMANDE A RETOURNER A 
LE.E.E. 


AORESSE POSTALE UNIQUEMENT 
23. rue Jean Giraudoux - 75816 Paris 
pour renseignements complémentaires 723,87 47 


Autre matériel, nous consulter Condiligns Sp8ciales Pour club, cellectivité, etc 


Teus les prix ci-dessus sont TTC 


e CARTE 16 K RAM _ = e MODEM L _ nous consulter 


DÉSIGNATION 


Port 25.00 


* Appt € stuna Meque d8P086A 
“-sans 5 AOM Total 


Réglement obhigaloire parC CP C8 Jedésire recevorr le matèriel SUIV@nt  prx vaiables salon disponbiité des Mochs 
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Où va donc Apple ? Un Macintosh 
pas tout à fait assez puissant pour af- 
fronter l’IBM PC sur le terrain des 
applications professionnelles, un 
Apple //c pas tout à fait compatible 
avec ses congénères de la gamme 
Apple Il l'accélération du mouve- 
ment chez le constructeur à la 
pomme multicolore donne le vertige 
aux aficionados. Où ve Apple ? Pour 
le Macintosh, la réponse est: vers le 
"Big Mac”, un Mac survitaminé 
(512K contre 128) avec un second 
drive et dont l'apparition (en raison 
du coût des chips 256K) ne se fera 
sans doute que l'an prochain. 


Où va Apple ? Pour la gamme Apple 
IL quelques éléments de réponse se 
trouvent dans une passionnante in- 
terview accordée par Steve Wozniak 
à la revue In Cider” dans son nu- 
méro de juillet. "Woz the wiz” (Woz 
le magicien), comme l’ont sumommé 
les Américains, réaffirme notamment 
la fidélité d'Apple à la compatibilité. 
Tout en assurant que des logiciels 
utilisant la double haute résolution 
graphique (donc incompatibles avec 
certains All+}) sortiront dès la fin de 
l’année. Pour la souris. pas de pro- 
bième : elle est appelée à devenir un 
standard sur l'Apple Il (même si les 
logiciels d'exploitation style Macin- 
tosh mettront encore quelques 
années à voir le jour). 


Le plus intéressant, c'est à coup sûr 
ce qu’annonce Steve Wozniak sur les 
développements de l'Apple //. Pas 
question d'aller vers une intégration 
du MS-DOS lle standard des compa- 
tibles IBM), on s'en serait douté. En 
revanche, l'avenir de l'Apple // passe 
par le processeur 65816. Un 16 bits 
compatible patte pour patte avec le 
6502 des Apple //. qu'il émule au 
repos (on peut sans difficultés ex- 
traire l’un pour le remplacer par l'au- 
tre). Vrai 16 bits ou pas ? Pour Woz- 
niak, ceux qui posent cette question 
sont ‘’à côté de la plaque”. L'impor- 
tant, explique-t-il, c'est que le 65816 
dispose de 24 bits adressables. L'in- 
térêt? ‘On est capable. alors, 
d'adresser 16 Megabutes au lieu de 
64K”. Et ça, c’est tout à fait passion- 
nant. car rien ninterdit plus alors 
d'ajouter à l'Apple des cartes d'ex- 
tension mémoire équipées de chips 
de 256K. d'écrire et d'utiliser des lo- 
giciels super-intégrés (genre Open 
Access ou Lotus Symphony) gros 
consommateurs de mémoire. qui font 
le tiomphe de l'IBM PC. 


De quoi rêver, non? Seulement. 
nous replongeons alors dans les 
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Micro-informations 


affres de l’incompatibilité. Si doper 
un Apple Ii+ ou //e est possible, réa- 
liser la même opération sur le //c pa- 
raît plus problématique (les chips 
sont soudés sur la carte mère et non 
enfichés comme sur les autres Apple 
1}. Conclusion : gare au //c! Il n’est 
pas compatible à 100 % avec ses 
aînés, et réciproquement : ainsi. si 
Jane tourne indifféremment sur n’im- 
porte quel Apple. Epistole version 
l/c-souiis produit d'étranges effets sur 
un // e muni d’une souris. On risque 
donc à terme de se retrouver avec 
les 16000 programmes existants, 
avec une gamme écrite pour le //c et 
ne fonctionnant que sur cette ma- 
chine, et avec des logiciels ”’pros” 
pour Apple // 16 bit et réservés à ce 
dernier. Mais, après tout, il existe 
déjà des logiciels pour Apple nécessi- 
tant une carte spéciale {les produits 
CP;M) 

En attendant les Apple de demain, 
voici de quoi occuper les mémoires 
de ceux d'aujourd'hui. 


Une souris des 


pommes 


pour 


Le jeu de mot est douteux. Pas la 
souris, qui vient d'arriver pour l'Ap- 
ple // : une carte d'extension (une de 
plus), un manuel. une souris et une 
disquette. c’est ce que propose Apple 
pour quelques 1200 F. La souris, 
c'est celle de Macintosh. La carte 
possède son propre microprocesseur 
(qui rend les opérations de la souris 
plus rapides qu'avec le //c). Le ma- 
nuel est parfait et comporte même 
des routines pour utiliser la bête en 
Basic. Quant à la disquette, elle offre 
Mouse Paint”, un logiciel de dessin 
qui reprend certaines des fonctions 
de MacPaint (pour Macintosh). Le 
trait est certes moins fin que sur le 
32 bits. Seulement. là, on a la cou- 
leur. 


Plus traditionnelles, les cartes musica- 
les d'ALF pour Apple // à trois voies 
MCI (169 dollars) ou à neuf voies 
MCI16 (179 dollars) On peut chan- 
ger le tempo ou jouer plusieurs airs 
en séquence. Ou encore ce buffer de 
clavier Quentin AP 810, qui permet 
aux possesseurs d'Apple //e de taper 
sur les touches à leur rythme sans se 
préoccuper de savoir si la machine 
suit, 


Donner de la voix 


Avec l'Introvoice //, on peut désor- 
mais contrôler des logiciels en par- 


Jean-Michel Gourévitch 


lant Une carte, à enficher (qui 
contient un analyseur de spectre 
audio, 16K de RAM et 8K de ROM), 
un micro et un logiciel. Le construc- 
teur garantit la reconnaissance d’un 
vocabulaire de 160 mot maximum 
avec une précision de 98%. Même si 
ces appareils ont quelques difficultés 
à s'adapter à un vocabulaire en fran- 
çais. ce n'est pas mal {995 dollars 
pour l'Apple //e). 


Espionner la police 


Ou encore écouter les communica- 
tions des radio téléphones de voitu- 
res, des taxis ou des dépanneurs, 
avec l’aide de l'Apple // et du scan- 
ner Bearcat CP 2100 d'Electra. Deux 
cents canaux programmables, dont 
les caractéristiques, les fréquences et 
les noms peuvent être visualisés sur 
le moniteur ou mis en mémoire sur 
disquette. La radio avec son haut 
parleur et son antenne se relie par 
câble à une interface RS 232. En- 
suite, l'Apple prend le contrôle et on 
pilote au clavier le niveau sonore. le 
réglage des fréquences, etc. (500 
dollars). 


Cocorico 


Voici un Modem français. Et pour 
moins de 1500 francs, en voie d'ho- 
mologation de surcroît, c’est celui 
d'In Electronic (le créateur des célè- 
bres Modulo-Phones). Il sera pré- 
senté à la rentrée au SICOB. 


L’Apple art 


Voici de quoi exploiter les possibilités 
graphiques des Apple Flying 
Colors pennet de réaliser des dessins 
assistés par ordinateur avec le joys- 
tick, et aussi de présenter des images 
sur l'écran (manuellement ou auto- 
matiquement) selon un ordre pro- 
grammable. B/ Graph, de Commo- 
dore, toume aussi sur Apple et offre 
un grand choix de graphiques et un 
excellent manuel de statistiques (100 
dollars) Une nouvelle version de 
Graphics Department de Sensible 
Software permet de faire une présen- 
#tion graphique (courbes. graphi- 
ques, camemberts, le tout agrémenté 
de lettres diverses et en séquence. 
comme avec un projecteur de diapo- 
sitives) et surtout de la réaliser avec 
la souris (125 dollars) A signaler, 
pour ceux que les graphiques intéres- 
sent, une étude exhaustive sur les lo- 
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giciels réalisée par Creative Compu- 
ting dans son numéro de juillet. 


Printshop de Broderbund Software 
est un logiciel tout à fait étonnant 
permettant de concevoir. dessiner et 
imprimer des cartes de voeux, des 
calicots etc. On choisit ses caractères, 
le dessin des bordures. les images et 
les symboles. Le programme est livré 
avec un choix de papiers de couleurs 
pour imprimantes à picots et d’autres 
gadgets (50 dollars). Le SSD (Super 
Screen Dump) de Schwartz Compu- 
ter Consulting se compose d’une 
caite d'interface avec un bouton de 
recopie écran. d’un manuel et d’un 
logiciel permettant d'imprimer tous 
les textes et graphiques sur Imagewri- 
ter, DMP ou Epson sans sortir du 
programme en cours pour Un prix 
défiant toute concurrence (41 dol- 
lars). Enfin, après Visicalc, on peut 
désormais imprimer Multiplan en tra- 
vers (comme sur le Macintosh) ainsi 
d’ailleurs que n'importe quel autre 
programme grâce à Sideways de 
Funk Software {60 dollars). 


Du côté des tableurs, Microsoft sort 
en septembre la version 107 de 
Muitiplan: compatible //c, capable 
d'utiliser les 128K du //e et du //c, et 
enrichie de fonctions nouvelles, en 
particulier le taux de rendement in- 
terne que seul Visicalc Advanced 
Version offrait à ce jour sur Apple. 
On trouvera aussi les fonctions finan- 
cières valeur future {FV), nombre de 
périodes (NPER), mensualités (PMT) 
et calcul de taux (RATE), cette der- 
nière n'exstant pas sur le V.A.V. Les 
possesseurs de Muitiplan version 
1.06 pourront se mettre à jour à un 
prix d'ami (pas plus de 300 francs) 
grâce à un échange standard que Mi- 
crosoft compte organiser. 


Côté boulot 


Typing tutor ill de Kriya Systems est 
un extraordinaire programme per- 
mettant d'apprendre la dactylogra- 
phie. Le programme mesure cons- 
tamment le temps de réponse de 
l'élève, et ajuste ses leçons en consé- 
quence. Si ce n'est pas de l'intelli- 
gence artificielle, ça y ressemble 
beaucoup. Pour seulement 50 dol- 
lars. Seul défaut, ce programme 
américain est bien sûr conçu pour un 
clavier QWERTY. Mais. après tout, 
apprendre à s’en servir n'est pas for- 
cément du temps perdu. Tick Tack 
de Longmank permet de correspon- 
dre dans une langue sans en 
comprendre un mot. Son génie : des 
phrases standard. pouvant être tra- 
duites automatiquement en anglais. 
français, allemand ou espagnol. Les 
lettres peuvent ensuite être éditées 
grâce à nimporte quel traitement de 
texte (158 livres en Grande Breta- 
gne). 





Pour le Mac et le //c, 
guère de nouveau 


À signaler seulement des disques 
durs Tecmar Mac Drive de 10 Mega- 
bytes fixe ou de 5 Megabytes amovi- 
bles pour le Macintosh. Avec les Da- 
vong et les Symbiotic qui devraient 
aussi sortir pour le Mac, on aura 
bientôt l'embarras du choix. 


Pour le //c. Catalyst QC18 de Quark. 
Les prix ne sont pas encore fixés. 


Bien sür, la plupart de ces produits 
{qui viennent de paraître) ne sont 
pas encore disponibles en France. 
Mais. on peut toujours les comman- 
der aux Etats-Unis, et certains ne tar- 
deront pas à être importés. En ma- 
tière de  micro-informatique, la 
futurologie, c'est déja le présent, et 
l'actualité le passé. 


Quelques compléments 


Multi-Phone. commercialisé par Pro 
Forma vous permet de programmer 
des séries d'appels téléphoniques. 
compose pour vous en faisant appa- 
raître la fiche à l'écran. Une carte 
reliée à une prise gigogne {pour le 
téléphone) se loge à l'intérieur de 
votre Apple I + ou //e: pour le prix 
forfaitaire de 5900 francs HT. vous 
aurez la carte, le logiciel en Pascal. 
une disquette de démonstration et 
deux disquettes-fichier contenant les 
fiches des 1000 premiéres entreprises 
françaises classées par effectif dé- 
croissant. Vous ny trouverez pas 
Pom s … 


Alliance Research vend $300 un 
clavier détachable pour Apple /'e. 
proche dans son dessin du clavier 
IBM et possédant comme lui 10 tou- 
ches de fonction 


Le logiciel TK! Solver pour l'analyse 
et la résolution d'équations devient 
disponible pour l'Apple //e en version 
128K. après avoir fait ses preuves sur 
le PC d'IBM 


Kodak commercialise dès à présent 
dans le Royaume Uni un lecteur de 
disquettes 5 pouces 1/4 avec 3.3 mé- 
gaoctet non formatés sur 192 pistes 
par pouce (tpi}, capable de lire aussi 
du 48 et 96 tpi Quand on met une 
disquette normale dans le lecteur. 
son microprocesseur la détecte aussi- 
tôt et adapte la vitesse du moteur en 
conséquence. On n'arrète pas le pro- 
grès! 


Le célèbre programme de gestion de 
fichiers Omnis. commercialisé en 
France par Ka. voit sa gamme s'enri- 
chir : l'utilisateur possède maintenant 
le choix entre Omnis 1. 2 ou 3 Dans 
Omnis 3, la version la plus complète. 
il est possible de définir les menus. 
les séquences de commande et les 


messages les accompagnant: on peut 
aussi, comme d'ailleurs avec Omnis 
2. travailler sur 12 fichiers ouverts si- 
multanément (2 pour dBASE Il). 


Des fiches en plastique aide-mémoire 
pour les principaux logiciels vous 
sont proposées par Barons AG, réa- 
lisées par Kleertex. Chaque fiche en- 
toure le clavier. Les logiciels déjà pris 
en compte pour l'Apple sont Words- 
tar/Mailmerge. Visicalc. dBASE Il. 
Apple Writer et Quick File. ce dernier 
existant seulement (et pour cause) en 
version //e. 


Adresses 


AIf - 1315 F Nelson St. - Denver, 
Co 80215 - USA 

Apple Seedrin - av. de l'Océanie, 
ZA de Courtaboeuf - BP 131 - 
91944 Les Ulis - Tél (6) 928.01.39 


Barons AG - 8 avenue des Grandes 
Communes - 1213 Petit Lancy - Ge- 
nève - SUISSE - Tél (022) 9347.47. 


Broderbund Software - 17 Paul 
Dr. - San Rafael. CA 94903 - USA 
Commodore Business Machines 
- 1200 Wilson Dr. - West Chester, 
PA 19380 - USA 

Creative Computing (vendu chez 
SIVEA) - 3460 Wilshire Bd. - Los 
Angeles, CA 90010 - USA 

Electra Company - 300 East 
County Line Road - Cumberland, IN 
46229 - USA 

Funk Software - PO Box 1290 - 
Cambridge, MA 02238 - USA 

In Cider (en vente à Paris au Muitis- 
tore Hachette et dans les boutiques 
Sivea) - 80 Pine St - Peterborough, 
NH 03458 - USA 

In Electronic - 3 Bd. Ney, 75018 
Paris - Tél 238.80.85 

Krlya Syst - Simon & Schuster 
Electronic Pubi. Div. - 1230 Ave. of 
the Americas - New York NY 10020 
- USA 

Longman Group - Longman House 
- Burnt Mill - Harlow Essex CM 202 
JE - Royaume Uni 

Microsoft - 519 local Québec - 
91946 Les Ulis Cedex - Tél 
4466136 


Pro Forma - 14 rue Martel - 75010 
Paris - Tél 5232505. 


Quark - 2525 West Evans - Suite 
220 - Denver, CO 80219 - USA 
Quentin Corp. - 9207 Eton Ave. - 
Chatsworth, CA 91311 - USA 
Schwartz Computer Consulting - 
3868 Cedar Hill Road, Victoria BC - 
Canada V8P326 

Sensible Software - 24011 Seneca 
Oak Park. MI 48237 - USA 

Tecmar Inc. - 6225 Cochran Rd. - 
Solon (Cleveland) - Ohio 44139 - 
USA 

Voice Machine Communications 
- 1000 South Grand Ave.-Santa 
Ana, CA 92725 - USA É 
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bole-fel 


un modem qui fait, d'un simple Apple, un Minitel intelligent 


Apple-tell comprend : 

e Une carte Modem incluant un décodeur Teletel 

+ Un logiciel Emulation de Ternunai Minitel enrichi de 
trois eblouissantes fonchons {celles qu fasaent le plus 
détaut jusqu a présent sur votre Minitel) 

IMPRESSION limprimante de vêtre Apple est exploitée 
pour sortr les copies - papier dont Vous avez besoin lorsque 
eus consultez un serveur 

STOCKAGE : les disquettes de votre Apple sont utilisées 
four enregistrer es pages dont ia con 
suitation vous est nécessaire 

e au format Teletel (Cest-à-dire 

telles que vCus les avez reçues) 

e en mode Tenue pur (ASCII) pour ex 
pletaïon locaie uitér:eure 
AUTOMATISME : = fintelligence de votre 
Apple est mobiisée pour accomplir 
lirterrogation automatique du serveur 
que vous lil avez désigné (appel 
téléphonique. orientation  TRANSPAC 
dentificahon. choix successifs), enregis- 
trer sur papier et/ou Sur disque les 
données consultées. puis pour traiter ceiles-C. en les in- 
corporant dans votre application 

Les procédures dinterrogaion sont créées par l'utilisateur. 
sans language de programmation, grâce au mode 
d apprentissage d Agple-Tell} 

Evénement du dernier SiC@B, salué par toute la presse. 
consacré Pomme #Or 1983 par le jury Apple. le 
snodem Apple - Tel marque une mutation décisive dans 
léveluton des techniques vidéolex en environnement 
pr£'essionne 
e pont darr£ a la proltératon des matériels sur votre 
bureau feifet :mini-Sicob 


HELLO informatique : :. Mai Te 
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e Lüulisalion optimale des ressources dont vous dispo- 
sez déjà (disques. imprimante logiciels. etc...) 
e Utilisation possible en mode Terminal autant quen 
mode Serveur (jusqu'à quatre portes) 
e Enfin (et c'est sans doute le point le plus important) 
JONCTI@N entre le monde extérieur et les outils 
standards de votre Apple lincorporation des données 
dans Apple-writer. Visicalc. Multiplan. PFS, Quick-File. etc. el 
même dans vos applicahons personnelles (comptabililé : suivi de 
commandes, fichier.) devient possible 
CARACTERISTIQUES GENERALES : = 
e Modem multimodes 
— 1 200/75, (full-duplex) 

1 200 (half-duplex), 
— 600 (half-duplex).390 (full-duplex). 3 
— standards CCITT et BELL Æ 
(cette caractéristique unique ES 
rend accessibles les serveurs 
nord-américans, ÿ Compris 
par réseau téléphonique 
commuté), 
Sorties : video 
composile (N & B) et Péritel 75018 PARIS 
couleurs Tél 


compatible Apple 2. Apple a 

e 

2—+. Apple 2e AË K une # relex : FLASH 210500 F 
disquette) ë 


e Enfichable dans nini- à. NOMME e omaes 
porte quel slot libre 
de votre Apple 2 

° Transparence 2 
LOGE IS AS M namenamn. c: : - 2 ART eLASS 
du système 7 Ville 


ARR 


HELLO 
informatique 
1, rue de Metz 


Cede postal ......... SP EA 
PL Sounaite recevoir unedoculmentalion sur le systèmeAgple-Tell 
” pb Cemmande 0 systemeis) Appte-Tell au prix de F 6997 TTC 
# fraglement ci joint Par G chèque bancaire D CCP\ 


mermanres C_AROTN 





Une gamme complète 
Des technologies de pointe 


e Couleur à jet d'encre 
e Matricielle 

e Laser 

e Thermique 

e Transfert thermique 


MATÉRIEL DISPONIBLE CHEZ LE DISTRIBUTEUR AGREE 


ASAP 


3, Avenue des Trois Peuples - 78180 MONTIGNY-LE-BRETONNEUX 


Tél. (3) 043.82.33 - Télex 698887 F 
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Graphic Trappes - (3) 044.16.21 


Un INPUT généralisé miniature 


Une des contraintes les plus énervan- 
tes de l’Applesoft est peut-être le 
manque de réalisme de sa routine 
d'input. Celle-ci refuse obstinément 
les virgules et deux-points: et les ca- 
ractères blancs précédant une chaîne 
sont purement et simplement oubliés. 


Encore une routine d'Input. allez- 
vous dire. Soit, mais celle que je 
vous présente aujourd'hui tient en 
deux lignes Applesoft Qui fait 
mieux ? 


Utilisation de la routine 


La routine tient dans les lignes 100 
et 110, et peut être insérée (éven- 


tuellement avec d’autres numéros 
d'instructions) dans tout programme 
Applesoft Le petit programme en 
Basic des lignes 10 à 50 ne sert qu’à 
illustrer le fonctionnement de cette 
routine. 


Explication du fonctonnement 


L'appel en 54572 ($D520C) utilise ta 
routine d'entrée du moniteur (qui, 
lui, accepte tout ce qu’on lui donne) 
et remplit le buffer d'entrée à 
l'adresse 512 jusqu’à 767 ($200- 
$2FF). Il ne reste plus qu'à transférer 
la saisie vers une variable chaîne Ap- 
plesoft : à partir du début du buffer, 
le premier octet nul indique la fin de 


Jacques Duma 


la saisie. Une fois celui-ci trouvé, on 
obtient l'adresse de la variable par 
l'expression : VAL(INS) + 
PEEK(131) + 256 « PEEK(132) 


En effet, les octets 131 et 132 
contiennent en permanence l'adresse 
du descripteur de la demiére variable 
utilisée, en loccurence IN$ I ne 
reste plus qu’à mettre à jour le des- 
cripteur pour qu'il pointe vers la zone 
du buffer contenant la saisie, puis à 
copier la chaîne vers une zone mé- 
moire protégée par l'expression 
IN$=MIDS(IN$, 1), apparemment 
inutile mais qui force la création 
d’une nouvelle chaîne. Et voilà ! = 





Lecture/Ecriture rapide de tableaux 


Îl est souvent utile de pouvoir sauve- 
garder un tableau Applesoft de varia- 
bles numériques, par exemple pour 
une utilisation conjointe par plusieurs 
programmes. 


Malheureusement cette fonction, dis- 
ponible avec l'utilisation des casset- 
tes, a disparu avec le DOS 33 (mais 
réapparu sous ProDOS, c'est une 
autre histoire). Des programmes en 
assembleur ont parfois été proposés 
pour combler cette lacune, mais 
pourquoi faire compliqué quand on 
peut faire simple ? La routine que je 
vous propose ici tient en deux lignes 
de bon vieux Basic: une ligne pour 
la sauvegarde du tableau. une ligne 
pour son chargement. 


Utilisation 
Le programme en Basic de 10 à 210 


1 REM #= NIBBLE ARRAY »e 


10 N = 8:P = 9: RENM DINENSIONS DU TABLEAU 

20 DIM T{N,P):TS = “NIBBLE.TABLEAU" 

sa T(1,J)=-1+1+J/10 + 

40 FOR 1 = O TO N: FOR J = O TO P:T{1,J) = 1 
NEXT 


30 REM 


+ I + J / 10: NEXT : 
SO TEXT : HOME 


60 PRINT “AFFICHAGE DES VALEURS‘: PRINT : GO 


SUB 200 


est un simple exemple d'utilisation de 
la routine de sauvegarde (ligne 510) 
et de la routine de lecture {ligne 
610). Encore une fois, vous pouvez 
intégrer ces deux lignes dans tout 
programme Basic, quitte à leur don- 
ner n'importe quel numéro d'instruc- 
tion. 


Fonctionnement 


Comme pour l'INPUT généralisé mi- 
niature, cette routine utilise avec 
bonheur les adresses 131 et 132 qui 
contiennent le vecteur vers le des- 
cripteur de la demière variable réfé- 
rencée, que ce soit une chaîne de 
caractères ou un tableau de variables 
numériques. Il ne reste plus qu'à cal- 
culer la taille du tableau avec la for- 
mule L = 5 «+ (N+1) « (P+1), où N 


500 AD = O »# T(O,0) + 
EK (132): 
E"TS",A"AD",L"S « (N + 1) # (P + 1): R 


ETURN 
599 REX 


65 PRINT "SAUVEGARDE DU TABLEAU": GOSUB 500 
70 PRINT “EFFACEMENT DU TABLEAU“: GOSUB 100 


75 PRINT ‘AFFICHAGE DES VALEURS*: PRINT : GO 1 REX 


SUB 209 


80 PRINT “CHARGEMENT DU TABLEAU": GOSUB 600 
85 PRINT “AFFICHAGE DES VALEURS": PRINT : GO 


10 TEXT : HONE 


Jacques Duma 


et P sont les dimensions, et le tour 
est joué | 


Remarques 


Pour un tableau de dimension 3, par 
exemple, rempilacez la formule par 5 
«+ (N+1) « (P+1) x (Q+1), où N, P 
et Q sont les dimensions. 

Pour un tableau de nombres entiers, 
remplacez le 5 de la formule par un 
2 puisqu'un entier est stocké sur 
deux octets seulement. 

Enfin, il n’est pas possible d'utiliser 
un tableau de chaînes de caractères, 
celles-ci étant dispersées un peu par- 
tout dans la mémoire; mais rien ne 
vous interdit de te convertir en ta- 


bleau d’entiers par la fonction 
ASCIMIDS(TS(,J).L,1))... 


PEEK (131) + 256 = PE 
PRINT : PRINT CHRS (4) "BSAV 


#++ CHARGEMENT #+ 
600 AD = O =» T{6,68) + 
EK (132): 
D'"TS",A"AD: RETURN 


PEEK (131) + 256 = PE 
PRINT : PRINT CHRS (4)"*BLOA 


### NIBBLE INPUT vs 

: PRINT “DONNEZ UNE CHAINE DE 
CARACTERES AVEC DESGUILLENETS, DES VI 

RGULES OÙ DES ESPACES:" 


SUB 200 20 PRINT : PRINT “-->";: GOSUB 100 
30 PRINT : PRINT CHR& (4)"DELETE"TS: END 30 IF INS = ‘‘* THEN PRINT : PRINT “C’EST FI 
93 REM #»* RENISE A ZERO »» Nl": END 
100 FOR I = O TO N: FOR J = O TG P:T(I,J) = 4O PRINT : PRINT ‘‘==>"INS‘<==": GOTO 20 


O: NEXT : NEXT : RETURN 
199 REM ## AFFICHAGE DES VALEURS »+ 


200 FOR I = O TO N: FOR J - 


1,J)*" ‘“;5 NEXT : PRINT 


‘ RETURN 
493 REX #++ SAUVEGARDE ++ 
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100 CALL 54572: FOR B = 512 TO 768: IF PEEK 


{B) «<« 


O TO P: PRINT T{ 101 INS = ‘‘":AD 


NEXT : PRINT 256 * 


KE AD - 


> O THEN 
= VAL CINS) + 
PEEK (132): POKE AD,B - 512: PO 


NEXT 
PEEK (131) + 


1,0: POKE AD + 2,2:INS = NIDS 
(INS,1):B = 768: NEXT RETURN 
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BONJOUR LES PRIX!! 


NOS PRIX SONT F TTC 




















Carte langage 400 Speech card 320 
Carte 128 kram 1550 Carte horloge 500 
Carte 80 colonnes 700 Joystick 165 
Interface série 520 Ventilateur 280 
Super série 1000 Contrôleur de drive auto switch 13/16 370 
Interface parallèle 380 Microdrive 3" 1900 
Grappler+ buffer 16 k 1350 Moniteur vert 12” 950 
Carte modem 2200 Disquettes 5” 1/4 S.F./S.D. par 1 boîte 140/boîte 
Carte Z 80 410 Disquettes 5” 1/4 S.F./D.D. par 1 boîte 175/boîte 
Wildcard 400 


AU-DESSUS, NOUS CONSULTER. 


Carte bleue et eurocard acceptées 
Vente par correspondance: nous consulter. 


Computer 3 


3, rue Papillon 75009 Paris - Tél.: 523.51.15 


{métro Poissonnière) ouverture du lundi au samedi de 10 h à 19 h 30 








LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


TRANSMETTEZ-NOUS VOS TEXTES 
PAR TÉLÉPHONE — 
ou O 
DONNEZ-NOUS VOTRE DISQUETTE ù 


Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur Votre APPLE sont envoyés directement sur notre photocom- 
—).} poseuse. 
LL 2 Nous vous évitons ainsi, le coût et le temps de la saisie supple- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
7 sition avant l'impression des documents, si vous le désirez nous pou- 


sons également nous charger de l'impression et du brochage. 


NOTRE RÉFÉRENCE... LA REVUE POM'S THECOMPO 26166 


PU ME POMERS  IJ € 15 GENE OU Pet Pac 
msmsson Of DONS muremenroe roms UAU ANCENNES 








Pom's r 14 


La touche DEL, sur l'Apple //e, en 
dehors de faire des damiers qui per- 
mettent d'écrire avec des PRINTS le 
titre Pom's, le sauver sur disquette et 
le rappeler, a certainement d'autres 
fonctions. Quel est son code ? Peut- 
on trouver un exemple simple de son 
ufilisation ? 

Jean-Claude Baron - 

31530 Lévignac 


Quand vous avez un doute sur le 
code d’une touche, il suffit d’exécu- 
ter un petit programme Basic tel 
que : 

10 GET A$ 

20 PRINT ASC(A$) 

30IF ASC{A$)<>13 THEN 10 


Le programme ci-dessus sort les 
codes ASCII de toutes les touches et 
s'arrête dès que l’on appuie sur la 
touche RETURN. Vous pourrez ainsi 
constater que le code de la touche 
DEL est 127 ($7E). 

Bien entendu, tout programme Basic, 
Pascal ou assembleur peut faire 
appel à ce caractère et tester le code. 
Ceci dit, nous ne voyons pas 
d'exemple spécial utilisant ce carac- 
tère, en dehors des possibilités gra- 
phiques que vous avez soulignées. 


Dans la revue Pons, je n'ai pu trou- 
ver le programme qui me permettrait 
de réaliser une ”hard-cops:” d'écran 
HGR, dessiné au moyen des instruc- 
tions HPLOT. 


Jean-Claude Ricateau - 
30400 Villeneuve les Avignon 


A l’aide des instruction HPLOT. vous 
pouvez dessiner sur la page graphi- 
que 1 ou 2. L'article “Les adresses 
du graphique” dans le Pom's 1 vous 
indique que la page 1 va de $2000 à 
$3FFF, et la page 2 de $4000 à 
$5FFF. 

Ainsi, pour sauvegarder sur disquette 
la page 1 après y avoir dessiné avec 
des HPLOTS, il suffit de faire BSAVE 
nomfic,A$2000,1$2000 où ‘’nomfic” 
est le nom que vous voulez donner à 
l'image résultante. 

Il ne vous reste plus qu'à utiliser un 
des nombreux programmes d’impres- 
sion d'image, ou même une 
commande directe (telle que CTRL1 
0H) d'impression d'écran graphique. 
si votre carte d'interface en possède 
une fonctionnant avec votre impri- 
mante. 


Suite à l'article ‘Donnez du caractère 
à votre imprimante. j'ai essayé l'im- 
pression en Multiplan sur mon impri- 
mante. une Centronics 152. Pour 
passer en condensé. il faut faire 
"IT" en double condensé 
"TN" et en caractères normaux 
”*1"S" Sans le Pom's 4 (Les codes 
ASCII épluchés), je n'aurais jamais 
trouvé ! 
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Courrier 


Hervé Guénec - 06950 Faucon 


De la part des autres lecteurs qui au- 
raient une Centronics 152, merci … 


Possédez-vous des informations 
comparatives entre le Pascal 1.1 et le 
Pascal 1.2 ? Quand la nouvelle ver- 
sion sera-t-elle disponible ? 


B. Lambillon - 51 rue de l'Automne 
- 1850 Bruxelles 


La différence principale entre le Pas- 
cal 1.1 et le Pascal 1.2 tient à ce que 
ce dernier travaille en 128 Ko de 
mémoire centrale: en outre, plusieurs 
bugs du 1.1 ont disparu Le produit 
devrait être sorti à la parution de ce 
numéro. 


Comment peut-on avoir accès aux 
touches de l'Apple /e qui n'existaient 
pas sur l'Apple H Plus ? Le manuel 
est totalement muet sur ces nouvelles 
possibilités. 

Dr. Denis Rousseaux - Auxon Dessus 
- 25870 Geneuille 


Les nouvelles touches ont les codes 
suivants en ASCII : 10 et 11 pour les 
flèches vers le bas et le haut, 127 
pour DEL. 9 pour TAB. La pomme 
ouverte et la pomme pleine corres- 
pondent aux boutons 0 et 1 des ma- 
nettes de jeu. comme vous pouvez le 
constater avec tout jeu utilisant les 
manettes. Les octets 49249 et 49250 
permettent de tester l’état de ces tou- 
ches (voir Pom's 13 p.45). 


Apple, champion toutes catégories de 
l'incompatible ! 
En passant de l'Apple + à l'Apple 
e. Apple à commis une erreur de 
conception. Si le progrés technologi- 
que jusüfiait le /’e. le clavier, lui, à 
fait l'unanimité. des mécontents. 
Pour économiser deux bouts de 
chandelle et conserver l'ancien boï- 
er, on n'a pas hésité à plonger l'uti- 
lisateur dans un  dédale de 
complexité dont la plupart ne se sor- 
tent pas. Deux utilisateurs sur trois 
révent d'un clæier normal pour rem- 
placer le puzzle du //e. alors qu'il au- 
rait été si simple de mettre la carte 
mère dans un boîtier séparé et de 
laisser l'acheteur choisir son type de 
clavier détachable. 


Mais les choses n'en restent pas là. et 
Apple qui a fondé sa gloire sur 
l'adaptabilité vient de faire un dond 
en avant vers l'absurde en passant 
en un rien de temps de l'erreur à 


des Lecteurs 
Alexandre Duback 


l'aberration technique et commer- 
ciale. 


Le //c devait initialement être destiné 
à une clientéle déjà équipée et qui 
attendait un portable avec impa- 
tience. Cela supposait donc une 
compatiblité totale. En fait. c'est 
d'INCOMPATIBILITE qu'il s'agit. 


Si vous possédez 20.000 ou 30000 
francs de logiciel, vous pouvez les 
mettre à la poubelle. Si vous possé- 
dez une imprimante autre que 
llmage Writer, vous pouvez la mettre 
à la poubelle. Si vous avez des drives 
en plus sur votre [+ ou //e. vous 
pouvez les mettre à la poubelle. 

Votre josstick quel que soit son mo- 
dèle, prendra le même chemin et 
surtout ne comptez pas sur ProDOS 
pour vous aider, il est lui aussi spé- 
cial au //c. 


Ni Multiplan, ni Apple Wiiter, ni Ma- 
gicalc, ni PFS.. bref plus aucun pro- 
gramme sérieux ne fonctionne. il 
vous faudra tout racheter à moins 
qu'un sursaut de bon sens ne vous 
fasse tout simplement ignorer le //c, 
ce qui semble étre la voie de la 5a- 
gesse 


Voyons maintenant le Macintosh. 
Bien sür l'incompatibilité est là aussi 
totale. Mais Apple. qui cherche tou- 
jours à se surpasser. a trouvé avec 
cette machine tottte neuve un truc 
auquel les autres constructeurs 
n'avaient méme pas pensé: rendre 
la machine incompatible avec elle- 
même: ça. c'est fort ! 


En eïfet, les Macs sont vendus en 
France avec un clavier Azerty et les 
programmes ne sont compañbles 
qu'avec un clav'er Qwertv. Simple. 
maïs il fallait y penser. Ainsi. les Mul- 
tiplan vendus pour Mac ne tournent 
pas sur Mac... 


Bien sûr, là encore votre chère impri- 
mante ira à la casse: quant au drive 
supplémentaire, il vous faudra dé- 
bourser près d'un demi-million de 
centimes pour l'avoir, et tout ça pour 
pas tout à fait 400 malheureux Ko. 


Le bloc numérique, vous le paierez 
en supplément, alors qu'il aurait dû 
être intégré à la souiis. cette fameuse 
souris qui aurait dù être branchée sur 
le clavier pour éviter tous ces fils 
pendouillards et éviter en cas de 
panne d'étre privé du clavier. Même 
aberration d'ailleurs pour le Duodisk 
dont toute panne de l'un entraîne la 
privation de l'autre et donc l'immobi- 
lisation de j'unité centrale. 


Reste à savoir quelle merveille d'in- 
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cohérence nous réserve Apple avec 
le Lisa 2: part comme ça l'est. nous 
ne serons sûrement pas déçus. Et. 
pendant ce temps-là. Toshiba nous 
foumit une machine avec deux 
drives de 700 Ko formatés chacun et 
un superbe écran graphique pour 
moins de 21.000 F TTC. Décidé- 
ment, comme le dit la publicité, 
‘l'empire contre-attaque” et risque 
fort de l'emporter si le bon sens n'est 
päs rapidement restauré. 


Jean Chamoin - 13001 Marseille 


Nous avons transmis votre lettre à 
Apple et publierons volontiers leur 
réponse. si vous pouvez nous l'en- 
voyer. Ceci dit. je dois vous avouer 
que si comme vous. j'ai trouvé le 
clavier du //e très désagréable durant 
la première demi-journée, je le pré- 
fère aujourd'hui cent fois à celui de 
lIBM PC. Avez-vous essayé d'utiliser 
un tableur avec le PC? Comment 
obtient-on les chiffres avec un clavier 
Azerty sans se mettre en blocage ma- 
juscules? Au moins. avec le //e, je 
fais tout en clavier US. sauf le iraite- 
ment de textes. et j'en suis ravi. 

De plus, quand des jeux américains 
utilisent pour le déplacement les tou- 
ches 1, J K et M. cela devient fort 
peu pratique si l’on est forcé de tra- 
vailler en Azerty. 

Enfin, pour utiliser un programme 
US sur le Macintosh, vous pouvez 
suivre la procédure indiquée dans le 
Pom's 13 (pages 66-67) ou. plus 
simplement mais moins définitive- 
ment, booter avec une disquette 
comportant un système français, 
l'éjecter. puis travailler alors avec le 
logiciel US. 





I} J'ai écrit un Programme en assem- 
bleur qui nécessite tant de mémoire 
libre que je dois le loger sur la carte 
langage. Or. ce programme utilise 
des routines de l'Applesoft et du Mo- 
niteur. Comment dois-je faire pour 
que tout marche ? 

2} J'aperçois sur la carte langage un 
circuit qui ressemble fortement aux 
ROMSs de la carte mère. Qu'est-ce 
que c'est ? 


Monsieur Thierry Han - BP. 301 - 
Yaoundé - Cameroun 


1) La solution la plus simple est celle 
de l'appel indirect: il faut réserver 
une parte de la RAM normale {sous 
l'adresse $BFFF) à une petite routine 
qui active et désactive la carte lan- 
gage. Au lieu d'appeler directement 
le moniteur ou l'interpréteur Apple- 
soft à parbr du programme placé sur 
la carte langage. on appelle cette 
routine qui active la lecture de la 
ROM. appelle la routine demandée 
et enfin réactive la lecture (et éven- 
tuellement l'écriture) de la carte lan- 
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gage et rend là main au programme 
initial. 

2) La caite langage comprend. outre 
les 16K d'extension RAM. ia ROM 
du moniteur Autostart de l'Apple li 
Plus. qui avait remplacé l'Apple Il. 
La ROM du moniteur située sur la 
carte mère de l'Apple n'est plus utili- 
sée quand la carte langage est placée 
dans son slot. 


Je ne parviens toujours pas à intro- 
duire. au sein d'un texte en Apple- 
Writer /e les commandes qui me 
permettraient d'imprimer avec des 
caractères autres que le Pica normal 
de mon Epson FX80/FT. 

J'ai bien essayé d'utiliser le principe 
décrit dans le manuel. fondé sur Ctri- 
UV. par exemple avec PRINT 
CHRS$(15) pour obtenir les caractères 
condensés. Pouvez-vous me conseil- 
ler ? 


Roger Clavel + 34100 Montpellier 


Pour envoyer des caractères à votre 
imprimante, je vous conseille, si ce 
n'est déjà fait, de lire "Donnez du ca- 
ractère à votre imprimante”, Pom's 
9 

Il ne faut pas taper comme en Basic 
"PRINT CHR${15)" pour envoyer le 
caractère 15, mais faire Ctrl-V Ctrl-O 
Ctrl-V, car le Ctrl-O a 15 pour code 
ASCII. Voir à cet égard ‘Les codes 
ASCI épluchés”, Pom's 4, qui indi- 
que ce qu'il faut taper pour engen- 
drer tel ou tel code ASCII. 

Enfin. le Courrier des Lecteurs du 
Pom's 10 (page 71) montre 
comment il faut traiter le cas particu- 
lier du code 0. 


Je viens de prendre possession d'une 
ImageWriter avec une configuration 
complète //e Comment fait-on pour 
copier son écran, en dehors des des- 
sains préenregistrés de la disquette 
Toolkit fournie avec l'impnmante ? 
Comment copier un dessin en dour- 
ble haute résolution, avec les 
560: 192 points de la carte Eve Chat 
Mauve ? 


Alain Dubois - 
59230 St Amand les Eaux 


En ce qui concerne les graphiques, 
Pom's 1, dans ‘les adresses du gra- 
phique”, indique les zones mémoire 
des pages graphiques. Quand vous 
avez créé un graphique à partir d'un 
programme, il faut d'abord le sauver 
sur disquette avec "BSAVE nom, 
A$2000.L$2000"”, ou A$4000 s’il est 
en page 2. Il suffira alors de faire 
BLOAD nom” pour charger la page 
en mémoire. 

Votre programme Toolkit d'impri- 
mante vous permet de charger puis 
d'imprimer une page graphique. 





C'est tout ce qu'il vous reste à faire. 
il n'existe pas à notre connaissance 
de programme de copie d'écran 
HGR double résolution. L'un de nos 
lecteurs en à peut être réalisé un que 
nous pourrions publier. 


En réponse au courrer de M. Januel 
(Pom's 12), voici la modification du 
programme MENU des disquettes 
Poms qui permet l'impression sur 
une Epson avec interface Apple : 


70 POKE 34.24:PRINT D1$"PR#"S 
71 PRINT CHRS$(01] 

72 PRINT CHR$(27)'A"CHR$(10) 
73 POKE 1657.80 

75 CALL 37989 

76 PRINT CHR$(27),CHRS$(50) 

77 PRINT D$"PR#0" 

78 TEXT 


Alain Meizoz 





Avis aux lecteurs de Pom's 


On nous déclare parfois que l'IBM 
PC est une bien meilleure machine 
pour communiquer que notre fidèle 
Apple Il. Pour notre pait, chaque fois 
que nous avons désiré relier notre 
Apple à un autre ordinateur, nous y 
sommes parvenus. Nous souhaitons 
réunir un catalogue des liaisons déjà 
établies entre un Apple et d'autres 
ordinateurs. 

Nous prions donc nos lecteurs qui 
ont innové en ce sens de bien vou- 
loir nous écrire pour nous dire à 
quels ordinateurs ils ont déjà relié 
leur Apple, et dans quel but. Bien 
entendu, les noms et adresses pour- 
ront rester confidentiels s'ils en expri- 
ment le souhait. 

Vous pouvez indiquer en outre les 
problèmes que vous avez rencontrés, 
comment ils ont été résolus. combien 
coûtent) le(s) logiciel(s) éventuelle- 
ment développés). Merci d'avance 
pour tous ceux qui pourront profiter 
de ces informations. 


J'ai réalisé un logiciel pour la gestion 
et l'exécution de menuiseries à isola- 
tion renforcée : croisées, porte-fené- 
tre et châssis. Les personnes intéres- 
sées peuvent me contacter 
directement. 


Christian de Grenier - 10. avenue de 
Verdun - 74100 Annemasse. - Tél. 
(50) 37.54.49. 


Erratum : Poms 13. page 22. f'ins- 


truction 61130 comporte le terme 
INT(X/2) et non INT(X>2). 
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SE a 
SATELCOM 


69-71, rue du Chevdleret 
75013 PARIS 


54, rue de Dunkerque 
75009 PARIS Tél: 282.1 7.09 SURPRIS ce LES PRIX CU 


Métro: Gare du Nord (100 m)j PRIX T.T.C.J POUR APPLE ET COMPATIBLES 


Diskettes U.S 51/4 SF/SD 145 F/hoite 10 (exp. min. 5 boîtes Port 27 F) 
Diskettes 3M 5”1/4 SF/DD 175 F/hoite 10 (exp. min. 5 boîtes Port 27 F) 
Lecteur diskeites pour APPLE 1950 F (PORT 95 Fi 
{mécan. Japonais, entr. direct) 
Corte synthétiseur de voix 350F À Corte wilcard (déplombage) 
Corte mémoire/langage 16 K Rom 450F LE Corte communication 

Carte mémoire 128 K 1550 F E Corte FFE - 488 

Carte drive 13/16 sect. 380 F À Carte copieur Eprom 

Corte 80 colonnes 740F À Corte A/D-D/A12bit 

Corte imprimante parallèle 400F À Corte horloge 

Corte imprimante + Buffer 32 K 1350 F LE Carte musique 

Corte série 550F À Corte RGB + Prise TV Secam 
Carte super série 1050F LE Corte 6522 Via 

Carte Z80 - CP/M 650F Port pour une corte 

Joystick de luxe 2 +, 2E, 2C 180F D Ventila 10 W. super silencieux 


Por Urgent ajouter 5,50 F 


NOUVEAU: Pince spéciale pour diskettes (100000 trous min.) (port : 13 F) 69 F 
Ordinateur mutticompatible Forth, Basic, CP/M, MS-Dos, CP/M86 


Écrivez, nous vous enverrons une liste plus complète de nos articles. Revendeurs, contactez-nous. 


Notre devise : ’DYNAMIT COMPUTER : MOINS CHER QUE MOI TU MEURS !’’ 
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e la disquette HAIFA Source| | au prix de 55 F la disquette (cf. Pom's n° 5) 


| Mentant 
TTC 





























e le logiciel H-BASIC [_} au prix de 150 F (cf. Pom's n° 8) 
e le logiciel MUSIC [_] au prix de 80 F (cf. Pom'’s n° 10) 
e le Disk Manager [_] au prix de 450 F (cf. Pom's n° 11) 
e DBSTAG (CP/M) [_ ] au prix de 450 F (cf. Pom's n° 11) 
e Disquette de jeux À [_] au prix de 80 F (cf. Pom'’s n° 12) | 
e Disquette de jeux B au prix de 80 F (cf. Pom'’s n° 12) _ 
e le logiciel BASICIUM |__| au prix de 150 F (cf. Pom's n° 13) 
e la disquette de démo au prix de 55 F la disquette 
sur 64K seulement L] CX Système L] Jane 








+ Recueil n° 1 de Pom's (n* 1 à 4) | 
[] avec ses 3 disquettes au prix de 280 F | 


[_} sans disquette au prix de 130 F 
[]les 3 disquettes seules au prix de 150 F 














e Recueil n° 2 de Pom's {n° 5 à 8) 
[ Javec ses 4 disquettes au prix de 320 F 
[_] sans disquette au prix de 130 F 
[_ ]les 4 disquettes seules au prix de 190 F 














Je désire recevoir : 











e les numéros de la revue Pom’s [| 4 []7 !]8 
au prix de 35 F ie numéro 


e les numéros de la revue Pom’s []9 []10 []11 [J12 []13 []14 
au prix de 40 F le numéro 











e les disquettes d'accompagnement des numéros [ ]1 []2 []3 []4 
ERA MATE AO IE Pas Et 
au prix de 55 F par disquette 














Je désire m’abonner pour 6 numéros à partir du n°... 


[_] sans disquette au prix de 200 F Il 
[] avec disquettes au prix de 480 F | | 














TOTAL: 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV — 64-70, rue des Chantiers — 78000 Versailles 


Nom 





See 


Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion : 18 F par numére et / ou disquette 


78 Pom's n° 14 








. Disquette de nettoyage 
. Analyseur d'unité de disque 
. Cassettes et mini-cassettes 


digitales certifiées 
- La gamme A 
référence, 


l'environnement de votre | 








système 
e Rubans imprimante cassette et bobine PEGASUS 
e Range les disquette 
e Filtres UN FL 3 
e Produits entretien COMPUCLEAN & 
à Chargeurs de disqu ettes + Roues d'impression É 
e Tapis 
I: (D 533.01.37 





FEI PARIS 


Faites la connaissance de vos nouveaux collaborateurs: 
Macintosh et Davong 





Macintosh" ,le dernierné de chez Apple, est eritrain o! 
l'infarrnatique individuelle comme l'ont fait ses'ancêtres, les prémiers Apple. 


Associé aux périphériques Davong, leMacintashallielafacilté d'emploi 4 
la puissance, la souplesse et de nombreuses possibilités d'edension au 
service de vos affaires. 


Le nouveau système Davong Mac Disk que vous pouvez vous PFOClirer 
auprès des concessionnaires Davong dans te monde entier, vous affre de 10 à 
32 millions d'octets de mémoire à disques, Grâce à Mac Disk. vous obtenez 
enfin la capacité augmentée et La fonctionnalité améliorée qu'à vous faut pour 
soudre vos problèmes de gestion. Le tout à un prix très caisonnable, sans 
affecter la vitesse et la simplicité d'emploi qui caractérisent le Macintosh. 


Une autre bonne nouvelle de chez Davong: l'arrivée très prochaine de son 
système de sauvegarde # bande en continu d'une capacité de 28 millions 
d'octets, quiassure la sauvegarde rapide de vus fichiers en toute sécurité, 
ainsi Qu'un système multi-tâche de gestion de réseau de zone locale qui 
permet à tous les Macintosh de votre entreprise de partager des données, des 
programmes et de bénéficier en commun des avantages du Mac Disk. 


Pour obtenir de plus amples informations, veuillez vous adresser à vetre 
concessionnaire Davong. 


importateur : 

HIT MICRO SYSTEMES 

171, avenue Charles-de-Gaulle 

92200 NEULL Y - Tél E {1) 738.28.80 Apple et Macintosh sont des marques de Apple Computer Inc 





